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ARITHMETIC TEST 



1. AbSTRACT 

ARITHMETIC 1EST IS A MAINTENANCE PROGRAM 
DESIGNED TO EXERCISE THE ARITHMETIC AND 
LOGICAL INSTRUCTIONS OF THE NOVA COMPUTERS, 
THE PKObHAM AOJUSTST ITIS PARAMETERS TO THE 
SIZt OF MEMORY AND RELOCATES ITSELF TO VAR- 
IuUS AREAS IF MEMORY, 

2. MACHINE REQUIREMENTS 

2.1 NOVA FAMILY PROCESSOR 

2.2 4K READ/WRITE MEMORY 

2.3 TELETYPE 

3. SMTCH SETTINSS 

LOCATION ''SwREG» IS USED TO SELECT THE PROGRAM OPTIONS 
(NOT SYSTEM CONFIGURATION). WHILE RUNNING UNDER DTOS, 
THIS LOCATION WILL HE LOAUED BY THE MONITOR, 
HnwEVER UNDER STAND ALONE AND PROGRAM LOAO MODES THIS 
LOCATION HILL BE SET ACCORDING TO THE ANSWERS SUPPLIED 
BY THE OPERATOR, IN ANY CASE THE OPTIONS CAN HE CHANGED 
OK VKHIMED BY USING ONE OF THE COMMANDS GIVEN IN SEC. 
3.2 



3.1 SWITCH OPTIONS 

UIFFERENT BITS AND THEIR INTERPRETATION AT LOCATION 
"SWREG" IS AS FOLLONSI 

BIT OCTAL BINARY INERPNETATION 



LOOP ON ERROR 

SKIP LOOPING ON ERROR 

PRINT TO CONSOLE 

ABORT PRINT OUT TO CONSOLE 

PRINT DETAILED ERROR UN THE 
SELECTED DEVICE/DEVICES 
ONLY X FAILURE REQUIRED 

ALLO" END OF PASS PRINT OUT 
SUPPRESS END OF PASS PRINT OUT 

00 NOT PRINT ON THE LINE PRINTER 
PRINT ON THE LINE PRINTER 

00 NOT HALT ON ERROR 
HALT ON ERROR 



SWITCH COMMANUS 

ONCE THE HRUGMAn STARTS EXECUTING THE STATIC OF ANY OF 
THE HITS CAN BE CHANGED BY HITTING KEYS 1 THROUGH 6. THE 
PROGHAM *UL CONTINUE RUNNING AFTER UPDATING THE OPTIONS 
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EACH HEY HILL COMPLEMENT THE STATE OF THE BIT AFFILIAT- 
ED »IIM IT, THUS HIT 4 CAN BE ALTERED BY HITTING KEY 4, 
StTTIN W ANY BIT OF LOCATION "SWREG" HILL SET BIT 0. 
(DEFAULT MOOE IS DEFINED AS ALL BITS OF SWREG SET TO B) 
THE PROGRAM CAN BE LOCKED INTO SWITCH MODIFICATION MODE 
BY TYPING A B, IN WHICH CASE HOME THAN ONE BITS CAN BE 
CHANGtO BEFORE THE CONTROL IS ALLONEO TO RETURN TO THE 
MAIN PROGRAM, 

3.2,1 OTHER CUMMANOS 

"CR" » "RETURN" CAN BE TYPED TO CONTINUE THE PROGRAM 
AFTtR ITS LOCKED IN A SWITCH MODIFICATION MODE 

»0 THIS COMMAND GIVEN AT ANY TIME RILL RESET "SWREG 
TO DEFAULT MODE AND RESTART THE PROGRAM. 

«R THIS COMMAND GIVEN AT ANY TIME MILL RESTART THE 
PROGRAM, SWITCHES ARE LEFT WITH THE VALUES THEY 
HAD BEFORE THE COMMAND WAS ISSUED. 

»0 THIS COMMAND GIVEN AT ANY TIME KILL CAUSE THE 
PROGRAM CONTROL TO GO TO ODT (SEE SEC, 6J 



THIS COMMAND GIVEN AT ANY TIME RILL PRINT THE 
CURRENT OPERATING MODES, 
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5.1.2 
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OPERATING PROCEDURE 

LDAD THE PROGRAM VIA THE BINARY LOAOER 

AND START AT 200. 

SEE SECTION 6.0 FOR RESTART PROCEDURE. 

UPON STARTING, THE PROGRAM WILL PRINT 

THE MESSAGE "LAST LOCATION IN MEMORY IS XXXXX". 

THE OPERATOR SHOULD CHECK THE VALUE PRINTED 

WITH THE SYSTEM MEMORY SIZE, IF THEY 00 NOT 

AGREE, A ERROR HAS OCCURED. 

THE PROGRAM WILL RUN UNTILL MANUALLY STOPPED. 

AT THE ENU UF EACH PROGRAM ITERATION THE WORO 

"PASS" WILL BE PRINTED AND THE PROGRAM RILL 

"ELOCATt ITSELF TO ANOTHER AREA OF MEMORY, 



PROGRAM OUTPUT/ERROR UE5CRIPTI0N 

WHEN A ERROR IS DETECTED BY THE PROGRAM THE 
FULLDWING WILL BE PRINTED! 



AttS PC 



THE MEMORY LOCATION Of THE 
ERROR SUBROUTINE CALL, 
WHERE TU LOOK IN THE LISTING 
TO FIND THE FAILING ROUTINE. 
THE ACCUMULATOR VALUES AS 
DETERMINED VIA THE RANDOM 
NUMBER GENERATOR. 
THE RESULT IN THE ACCUMULATORS 
PRIOR TO THE ERROR CALL 
AFTtR THE PRINTOUT THE PROGRAM RILL ITERATE THE 
FAILING ROUTINE WITH THE SAME NUMBERS AS PRINTED. 
CONSOLE SWITCH 3(1) MAY BE USED TO DETERMINE THE 
RATE UF FAILURE. SWITCH 1(1) MILL CAUSE THE 



LIST PC 



ORIGINAL 
AC0.AC1.AC2 



RtSULT 
AC0,AC1,AC2 
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PROGRAM TO PROCEED TO THE NEXT TEST. 

6. PROGRAM DESCRIPTION 

6.1 THIS PROGRAM CONSIST OF A NUMBER OF SUBROUTINES 
PERFORMING VARIOUS OPERATIONS ON SETS OF PSEUDO 
RANDOM NUMBERS. SOME ROUTINES PERFORM MORE THEN 
ONE OPERATION , SUCH AS TAKING THE SQUARE ROOT OF 
A SQUARED NUMBER, WHEN THE OPERATOR QUESTIONS 
•MICH RESULT IS CORRECT, THE OPERATIONS HAY BE 
PERFORMED WITH PENCIL AND PAPER ON THE ORIGINAL 
NUMBERS. 

6.2 AT THE END OF EACH PROGRAM ITERATION THE PROGRAM 
RELOCATES ITSELF TO ANOTHER AREA OF MEMORY FOR 
EXECUTION AT THAT SPOT. THIS RELOCATION PLACES 
DIFFIRENT OPERATING CONDITIONS ON THE PROCESSOR 
REGISTERS SUCH AS, THE MEMORY ADDRESS REGISTER 
ANO THE PROGRAM COUNTER, 

6.3 BECAUSE THIS PROGRAM IS USED AS A FINAL TEST OF 
THE ARITHMETIC AND LOGICAL INSTRUCTIONS IT IS 
COMPLEX AND DIFFICULT TO TROUBLE SHOOT, IT IS 
THEREFOR SUGGESTED THAT THIS PROGRAM BE RUN 
AFTER OTHER PR0CE5SUR TEST, 
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OCTAL DEBUG TOOL (OUT) 

TMt DIAGNOSTIC IS EUUIPEO WITH A BULT IN UDT WHICH CAN 
Bt ACCESSED 6T HITTING CONTROL U (»0) AT ANV TINE DURING 
THE EXECUTION OF THE PROGRAM (AFTER SETTING THE PARA- 
METERS). 

ON ENTERING OUT THE ADDRESS Of THE LOCATION HAVING THE 
NtXT INSTRUCTION TO St EXECUTtD HILL BE TYPEO-OUT. 

17.1 CONVENTIONS AND SYMBOLS 
THE FULLOWING CONVENTIONS ARE USED BY THE OCT: 
? PRESSING ANY ILLEGAL KEY CAUSES THE DDT TU RES- 
POND Hllh A »?», 

• OUT IS READY ANO AT YUUR SERVICE. 

17.2 COMMAND STRUCTURE 
AN OOT COMMANO THE FOLLOWING FORMAT: 

[ARGUMENT] [COMMAND], 

AN ARGUMENT MAY BE UNE OF THE FULLOWING: 

EXP AN OCTAL EXPRESSION CONSISTING OF OCTAL NUMBERS 
SEPARATED BY PLUS C + ) OR MINUS (-) SIGNS. LEAD- 
ING ZEROS NEED NOT BE TYPED, 

AUR AN ADDRESS IS THE SAME AS AN EXPRESSION EXCEPT 
THAT BIT IS NEGLECTED, 

A COMMAND IS A SINGLE TELETYPE CHARACTER 

17.3 OUT COMMANDS 

the locations that can be examined and modified by the 
use" are called cells. these cells are of two type: 
Internal cpu cells and memory locations, 

i7.3.i opening internal cells 

THE COMMAND TO OPEN ONE OF THE INTERNAL REGISTERS IS OF 
THE FURM "NA" NHEKE N IS ANY UCATL EXPRESSION BETWEEN 
a AND 7 
«-3 FOR ACCUMULATORS 0-3 

4 FOR PC UF THE NEXT INSTRUCTION TO BE EXECUTED IN 
THE EVENT OF A "P" COMMAND. 

5 CPU AND TTO STATAS 
BIT INTERPRETATION 
15 STATUS UF TTO DONE FLAG 
14 STATUS OF INTERRUPTS 
13 STATUS OF CARRY BIT 

6 ADOkESS OF THE LOLATION HAVING BREAK POINT (IF 
ANY) 

7 INSTRUCTION AT THE BREAK POINT LOCATION 

OTHER CUMMANDS TO OPEN CELLS ARE: 

AUR/ OPEN THE CELL AND PRINT ITS CONTENTS 

,/ OPEN THE CELL CURRENTLY POINTED BY THE POINTER 

AND PRINT ITS CONTENTS, 
.♦AUR/ ADD AOR TO THE P0IN1ER, OPEN THE CELL AND PRINT 

IIS CONTENTS. 
,-AD»/ SUBTRACT ADR FROM THE POINTER, OPEN THE CELL AND 

PRINT ITS CONTENTS. 
"CR" THE RETURN KEY IS USED TO CLOSE THE OPEN CELL 

WITH OR WITHOUT MODIFICATION, 
"LF" LINE FEED IS USED TO CLOSE THE OPEN CELL KITH Ok 

WITHOUT MODIFICATION ANO TO OPEN THE SUCCEEDING 
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CELL. 
/ CLOSE TnE OPEN CELL WITHOUT MODIFICATION, AND 

tlPEN THE CELL POINTEO BY ITS CONTENTS. 
♦AOR/ CLOSE THE OPEN CELL WITHOUT MODIFICATION, AND 

OPEN TMt CELL POINTED BY ITS CONTENTS ♦ ADR, 
-AOR/ CLOSE THE OPEN CELL WITHOUT MODIFICATION, AND 

OPEN THE CELL POINTED BY ITS CONTENTS - ADR, 

7.3.2 MUDIFICATION OF A CELL 

ONCE A CELL HAS BEEN OPENED ITS CONTENTS CAN BE MODIFIED 
BY TYPING TIE NEW VALUE TME CELL IS TO CONTAIN IN THE 
FURM OF AN OCTAL EXPRESSION FOLLOWED BY "CR" OR "LF", 
IF A ♦ UR - IS TYPEO AS THE FIRST CHARACTER OF THE EX- 
PRESSION THEN THE VALUE OF THE EXPRESSION IS AODED TO OR 
SUBTRACTED 'ROM THE OLD CONTENTS OF THE CELL, 
AuORESS ITSELF OR AN EXPRESSION RELATIVE TO THE ADDRESS 
CAN BE DEPOSITED BY TYPING A ",» OR ",*/-OCTAL EXPRESS- 
ION". A RUBOUT COMMAND GIVEN RIGHT AFTER OPENING A CELL 
ALLOWS THE MODIFICATION OF ITS CONTtNTS AS IF THEY WERE 
TYPED IN JUST BEFORE THE COMMAND HAS ISSUED, 

7.3.3 OTHER OUT COMMANDS 

RUBOUT THIS KEY IS USED TO DELETE ERRONEOUSLY TYPED 

DIGITS, EACH TIME THE KEY IS PRESSED RIGHT MOST 
DIGIT IS DELETED ANO ECHOED ON THE TERMINAL, IF 
THE RUBOUT KEY IS PRESSED RIGHT AFTER OPENING A 
CELL THEN IT ALLOWS TME MODIFICATION OF THE CELL 
AS IF ITS CONTENTS HERE TYPED IN JUST BEFORE THE 
KEY WAS PRESSED. 

AURB INSERT A BREAK POINT AT LOCATION "ADR", 

ONLY UNE BREAK POINT CAN BE INSERTED ANO ANY 
ENTRY TO ODT AFTER EXECUTING A BREAK POINT WILL 
CAUSE IT TO BE DELETED, 

DELETE THE BREAK POINT IF ANY. 

P RESTART THE EXECUTION OF THE PROGRAM AT LOCATION 
POINTED BY 4A, 

AuRK START E4ECUTING THE PROGRAM AT "AOR" AFTER AN 
ID-RESET, 

K KILL TME STRING TYPEO SO FAR. THE ODT RESPONDS 
WITH A "?" AND TME OPEN CELL IS CLOSEO WITHOUT 
MUOJFICATION. 



IF THIS PROGRAH IS MANUALLY STOPPED WHEN IN THE 
PROCESS OF RELOCATION, IT CAN BE RESTARTED AT LOCATI 
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IRESTORt THt MEW LOL 

IUP0A1E MEM ADDRESS POINTER 

IIS IT THt MAX n£R POSSIBLE 

IVES 

(NO CONTlNUt SIZING 

isave Tup op mem 

■DECREASE By ONt 



IPRINT HIttHTEST MtMURT LOC. 



P ?i /, ? H >/> 



lieiD A H I 1 h 
11 

fa 

*6 

^4 V*5?<1 1?1PW« 
15 vlfSei 1P24M? 

Die, *abPa t'4^153 

317 H0b/3 ^4»>lf)4 

716 



.LOC 5VU 

FIRST: "OV SI, 
SUB 
STA 
Sl» 



»,P ICLEAN ACB 

B.RANLT ICLtAR RANDOM LOOP COUNTER 

B.TJiTNM ICLEAR TEST NUMBER COUNTEk 



USUI ANIJM 

01 

fl 2 
»3 
.4 4 
fis *i»D'"i *l«>lt>4 Ti: 

30 

*>7 MSI 

?a «^b0b /Pojal 

SIS 

It; fc>050b *ir}olu3 

11 WPSP7 l«47wl< 

12 HBSIt 13x342 

13 ««li 142PM 
14 

IS BPS12 f(>0f<47 

IB 

17 HCD13 ».(»blls2 

10 

19 (IPM4 «iHB4ti2 

2» efblb nn^atM TNI 

21 «KMb 424777 ET1 

22 tiBM/' »2B1&4 

23 «flb?«> 1224S4 

24 0Pb21 ^fiblyd 



I...*..................*,.,., 

MST»l MISC TEST Of NEfc/COM 



1SZ TSTl»« (ENTERING A NEW TEST 

StTUP (MISC TtST OF NEG/COM 

JSR #IENTER 

RANUOM 

Jin »IRANU 

MtSS il,l 

COHUS 1,2, SIC 

4uC.ii 2,ld,SZK 

EkRUR 

JSN PIEKR 

LUt!P 

JSR 41CYCLE 

JMP ,*2 

1 

Lt/» 1,TM 

LUA K.TSTNM 

5uBU» l.a.SZR 

JSR «IStQER 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM F1.0N 



urn? AKI1H 

«ll 

«2 

*4 

J» k*[»S2Z 41 415* T2: 

lib 

i!7 *>S2: 

»it) tiPD23 fflbltal 

49 

If WM24 4P61i»3 

11 UFS25 11178" 

12 U?526 143323 

13 Cl"»27 1I"6314 

14 

lb uk a 3k' ^ttot'47 

16 

1/ KPS31 aPOlca 

16 

lb ?0b32 *iFV4v2 

SB 4Pb33 a("«i?k'2 TN2: 

21 4B534 D24777 ET2I 

22 t'Pb3b i»2«!l!>4 

23 fDb3t> 122*54 

24 H»b37 «UblM 



1TST«2 MISC TEST OF INC 5KAPPE0 
(••••»«•»«»«•«••*•••••••••••••••• 



ISZ 



TSTNH 



(ENTERING A NEK TEST 



SETUP (MISC TEST OK INC SKAPPEO, 

JSR »IENTER 

RANUOM 

JSR «IRAND 

INCS 4,2 

HUVZS 2.1.SNC 

Abes* e,i,szR 

EKRUR 

JSR »IEHR 

(.OOP 

JSR #1C»CLE 

.♦2 



jnp 

2 

LD4 1,TN2 

LOA ?,TSTNM 

SUBO* 1,0, SIR 

JSR »ISEQER 



(GET THE TEST NUMBER 
(CHECH THE PROGRAM FLOM 



01 

U2 

03 



ITST»3 MISC NEGATE 



»b 

07 *s3i 

^B »C541 uoeiai 

is m*z i t«a atipi 

U H0543 teu644 
11 

12 HP544 006047 

13 Hflft-lb 100664 
14 

15 00546 006047 

16 «jft;>47 100664 
17 

18 00550 006047 

19 

20 «ll»6Sl 008102 

21 

22 

24 00592 000402 

24 00553 H00003 T«31 

25 00554 024777 ET31 

26 00555 «2»lb4 

27 00556 122454 

28 0P557 0061«)4 



UZ 



TSTNM 



SETUP 

jsr 0ienter 
Sub 0,p 

NfcGOR 0,0, SZR 

ERROR 

JSR »IERH 

NLGLR 0,0,SZR 

ERROR 

JSR »IEKR 

MfcGCR 0,0, SZR 

ENROR 

JSR »IEKR 

loop 

jsr #icycle 



JMP ,»2 

3 

LDA 1.TN3 

LUA 0, TSTNM 

SuBU* 1,0, SZR 

JSR USEQtR 



/ENTERING A NEM TEST 
IMISC NEG TEST 



(GET THE TEST NUMBER 
/CHECK (HE PROGRAM FLOM 



(1014 HUM 

^1 

4 2 

44 

15 00560 <11«!IS4 T4: 

a 6 

37 RCJTl 

08 00561 0p6i.ii 
<>e 

If 00562 00011)3 

11 00563 105000 

12 00564 I<»1I00 

13 00565 111100 

14 00566 151100 

15 190567 151100 

16 0057B 15S1B0 

17 00571 175100 

18 00572 175100 

19 80573 18J100 
2* 00574 10UU0 

21 00575 10110H 

22 190576 lollop 

23 11*577 101100 

24 00600 101100 

25 00601 i 011 00 

26 00602 101 UR 

27 00603 101100 
26 B0604 I011n)0 
29 00605 106414 
30 

31 00606 006047 

32 

33 00607 006102 



|TST»4 TtST FOR ROTATE LEFT 



IS2 



TSTNM 



/ENTERING » NEK TEST 



StTUP /TEST ROTATE LEFT 

JSR 0IENTER 

RANDOM 

JSR 0IRANO 

MOV 0,1 

MQVL 0,0 

MOVL 0,2 

MOVL 2,2 

MOVL 2,2 

MOVL 2,3 

MOVL 3,3 

MOVL 3,3 

MOVL 3,0 

MOVL 0,0 

MOVL 0,0 

MOVL 0,0 

MOVL 0,0 

MOVL 0,0 

MOVL 0,0 

MUVL 0,0 

MOVL 0,0 

MOVL 0,0 

SUB* 0,1, SIR 

ERROR 

JSR «IEkR 

LOOP 

JSR 0ICTCLE 



U315 HKITH 








01 








a 2 








tfi 00610 H0«!402 




JnP 


.♦2 


i?4 c^eb 1 1 tJPUPM 


TN4! 


4 




*5 00612 024777 


ET41 


LQ4 


1,TN4 


0b OBiOlJ >t?islb4 




LB» 


0.TSTNM 


07 00614 122454 




SUBU* 


1,»,SZR 


at) 00D15 000104 




JSB 


useatR 



(BET THE TEST NUMBEK 
(CHECK THE PROGRAM FI.0N 



0016 AKI I 
•11 

a a! 
JIJ 
34 

35 00616 

17 

36 

10 HH620 
It 00621 
12 00622 

U 00623 

14 00624 

15 00625 

16 00626 

17 00627 
10 ae630 

19 H0631 

20 00632 

21 00633 

22 00634 

23 1)0635 

24 0C636 

25 00637 

26 0264111 

27 00641 
2S 00642 

28 00643 
36 

31 00644 

32 

33 00645 

34 

35 00646 

36 00647 

37 00630 
36 00651 
Hi .10652 
40 00653 



)TST»5 



TEST ROUTE RIGHT 



010154 Til 



RUT2I 



«I0617 0H61B1 



006103 
131000 

121200 
101200 
101200 
1012D 

101200 
101200 
1012IS0 
1012U0 
101200 
101200 
105200 
125200 
135200 
1752190 
175200 
161200 
10120* 
112414 



« 816047 

006102 

000402 
000005 TNSI 
024777 ET5I 
020164 
122454 
006104 



167. 



TSTNM 



(ENTERING 4 NEK TEST 



0IENTER 



SETUP 

J5R 

M4N00H 

JSR 0IR4ND 

MOV 1,2 

MUVR 1,0 

,0 

,0 



(TEST RUT4TE RI6HT 



0,0 

0,0 
0,0 



0,1 



HQVK 

HOVR 

HUVR 0,0 

HOVR 0,0 

HOVR 

HDVR 

HDVK 

MDVK 0,0 

HOVK 

MUVR 

HOVK 1,1 

HOVK 1,3 

MOVR 3,3 

HOVK 3,3 

HOVR 3,0 

HQVR 0,0 

SUB* H,2,SZR 

ERROR 

JSR 0IEHR 

LOOP 

JSR •ICTCLE 



JhP 
5 

L0» 
L0» 
SUED* 
JSH 



ltTNS 
«, TSTNM 

1,0. sn 

♦I8E0ER 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM PL.ON 



»<kfl7 4kJ1 
«1 
i't 
13 
H4 

.It. 0«bS4 
i)t 
17 

Ilt> n»obb 
0S< 

If unbSb 

11 v'KbS/ 

12 t'.I>66«! 
IS rfltbbl 

14 8IK6fi2 

15 HPb63 
lb v>Hb64 
17 «<«ibbb 
lb UPbbb 
IS DP«>b7 
?V kiP67.i 
21 ».<>b71 
as H0672 
23 

24 «iS>b7v) 
2b 

2b «i»b74 
2/ 

2b PK673 

25 «iKb7& 
iti B(f 67/ 

31 *i f / V u 

32 nC7l"l 

33 U(*7fr2 



lTST*b 



H«<154 TS1 



"ipbldl 
wPblv3 

1277i£H 
1P/7M0 
1277i!VI 
1277ki< 
1353«'« 
17/7rff 
1777«>t» 

mxsi'"! 

IP 37b" 

I W«l« 

y^bf-47 

i.nbu.2 

rf^^4n2 
*>ptv*w*i6 TNfii 
i)247/7 ET6: 
«2Mlh« 
l?24b4 
/ p b 1 1! 4 



TtST ANr NUMBER ANDtD TO ITSELF DUES NOT CHANGE 



ISZ T5TNM (tNTERlNG « NEW TEST 

(AN* NUMBER ANOED »1TH 



SfcTUP 
JSR 

K»nun» 
JSR 
«ov 1,2 

AND!) 1,1 

ANDS 

AnOS 

A«Ob 1,1 

AMDS 1,1 

MUVS I, J 

ANDS 3, J 

ANOS 

MIjVS 3,» 

ANOS «,t» 

Sub* *,2,SZK 

tKRUR 

JSR 

tunc 

J1R 



(ITSELF SHOULD NOT 



(BE CHANGED. 



JKP 

fi 

Li'A 

UUA 

SuSUR 

JSR 



»IERR 
•ICTCLE 
.♦2 
1,TN6 

b.tstnm 

l.fl.SZR 

•IStQfcR. 



(GET THE TEST NUMBEK 
(CHECK THE PROGRAM FLOR 



KB is ax; 

"51 

Jii 

At 

lib t*i>//J 

Ob 

*7 

lb (IP7S4 

ilk 

IC ».'H7f"3 

11 f.P7?6 

12 n?/?7 
13 

14 kit? 71" 

lb 

16 i-P/ll 

17 



in 1 1 1 5 4 T 7 : 

ANOli 
lf"» «> 1 Ij 1 

(11»o1b3 
\Vi/,&2 
1237H4 

oPbi"47 

uPblvZ 



TTSTR7 TtST A NUMBtR ANOEn KITH ITS COMPLIMENT EUUALS B 
TSTNM 
•IENTER 



ISZ 



StTUR 

JSR 

RANUOM 

JSR fIRAND 

COHU 0,1, SZC 

ANDS l.B.SZR 

ERROR 

JSR »IE«R 

LOOP 

JSR #ICtClE 



(ENTERING A NEN TEST 
(A NUMBER ANOtD KITH ITS 
(COMPLIMENT SHOULD 



(PROOUCE ZERO RESULT, 



11,019 AKITH 








HI 








i?a «>*712 «ilM4t.<2 




J*P 


.♦2 


("J «?7I3 **K*e7 


TN7: 


7 




44 PP714 ^24777 


ET7: 


L0» 


1.TN7 


a5 **715 B2>ilb4 




Lu» 


B.TSTnM 


i<6 flP/10 122454 




Su»U« 


1,8, SZR 


»7 ^("717 0OIO104 




JSR 


• 1SEQER 



H.ET THE TEST NUMBER 
[CHECK THE PROGRAM FLOW 



;• 



M2I» AKIIH 

»a 

14 

Ift if? lit «S1«I54 TlPl 

ne 

47 AND3: 

*8 *v/21 t*«>ltol 

ai» 

In n*722 kiBftiaJ 

11 DCI723 l7b*20 

U »t>72« i3i*ua 

13 uip.725 1134t)0 

14 BB726 1*1113 

15 0*727 #PU>4»3 
lb »*73K 125112 
17 H*73l 1B1141 

16 K0732 1*1121 
19 tf*733 12S14J 
2H P*734 12512* 

21 »»73S 175224 

22 »>073e «B«177? 

23 P0737 1*6415 

24 «,(«74» 13X414 
25 

26 01*741 »*b047 

27 

2b UD742 0*6102 

2S< 

3e 

31 

32 B0743 »Bt)402 

33 **744 «l**>*ie TNltj: 

34 00745 1124777 ETlia: 

35 100746 0PH134 

36 0*747 122454 

37 0075* H«61B4 



HSt*ld TEST THE A*U FOR CORRECT OPERATION 



IiZ 



TSTnM 



•IEnTER 

♦IRAND 



SMuP 

JSk 

RAXUOft 

JSR 

SbBiH 3.3 

HOV 1,2 

AND 0,2 

MOVL* 8,*.SNC 

JMP ,»3 

MUVU» 1,1, SIC 

10VQL 0,0, SUP 

HOVit 0,0, SKP 

MOVOL 1,1, SKP 

MOVIL 1,1 

HUViH 3, 3, SIR 

JMP AND345 

SU8» B.l.SNH 

SUB* 1,2. SZR 

ERROR 

JSR 

LOOP 

JSR 



[ENTERING A NEW TEST 

[PERFORM A AND INSTRUCTION 

[KITH THE RESULT IN AC2. 

•SIMULATE THE AND VIA 
[LOOKING FOR ADDER CARRY, 



[CHECK IF AC0«1 ARE 
[THE SAME ANO IF THEY 
IARGEE KITH INST. 



PIER* 

»ICYCLE 



IIEST PROCESSOR VIA EXCLUSIVE OR ROUTINES, 



JMP 


.♦2 


IB 




LDA 


l,TNl« 


LUA 


*,TSTNM 


suao* 


1,0, SIR 


JSR 


#IStOER 



[SET THE TEST NUMBER 
[CHECK THE PROGRAM FLO* 



tfHUl ARITH 
ill 



H3 



rTS1*ll TEST PRUCtSSON »ITM XUK 

I... ............................ 



ISZ 



TSTnM 



«1S WP7S1 *1<154 Til ! 

1fr 

4/ *1! 

15 .iP/S2 dnolt',1 
«S/ 

If. ot 7S^ wPAlriS 
11 t«K754 IMtfiiW 
12 

13 9P75& «m6«75 

14 HJ756 HH23S2 
la 

16 S-P7S7 t.BI0H75 

17 Wl7b«j «iB23:J2 
lb tf"7M 1324J4 
19 

2e *jtf7b2 fPIO047 
21 

22 *t/63 «,(»01ii2 
23 

2< «i?/64 &;Hk.4v.2 JmP 

2b i»e/6D ^»k'?n Tnui 11 

26 6HT760 >»24777 ETllt LOA l.TNll 

27 lr>P767 K2t«l»4 LUA «,TSThM 
2b rf ?- 7 7 n 1224S4 SUDUK l,H,SZR 
?V Sie/7l t/PblM JS» OISEUF.R 



(ENTEKlNG * NtN TtST 
(CtACl) IS SAVEO IN CCAC2). 



StTUH 

JSR »IENTER 

kandpm itca is exclusive ored 

JSR URANU 

MOV 1,2 IKlTM AC1 T1ICE. THE SECOND 

CALL (EXCLUSIVE uR SHOULD 

JSR #ICAL 

XOR (HESTORt AC1 TO ITS 

CALL (ORISIONAL CONTENTS, 

JSP »ICAL 

XuP 

SLB« 1.2.SZH 

t«RO» 

JSR flEKR 

LUDP 

JSR »1CYCLE 



.♦2 



(SET THE TEST NUMBER 
ICHECK THE PROGRAM FI.OH 



(ENTERING A NEW TEST 



?a«!2 akith 

»1 ; •.••.•....••••.•»•.•«•.... 

-)2 MST»ia XOR TEST CCUNT.) 

33 r. ...... ...... ............. 

144 

JIS «n»772 «-.|«MB4 T12i ISZ TSTNM 

«6 

17 12i SETUP (THE FIRST EXCLUSIVE OR 

** 0P773 /P6U 1 JSR »IENTER 

?!/ J*ANUOM (ROUTINE EXCHANGES THE 

Id «IP774 ^3t)l?3 JSR fIRAND 

11 CALL (CONTENTS 

12 SK?77S Y.nor./S JSH »1C«L 

13 BH776 ir»236S XOP2 (OF AC0 AND AC1, IT ALSO 

14 CALL (FORMS THE EXCLUSIVE OR 

15 IM777 b!"6i»7!> JSR #1CAL 

IB v.'lcvn ►P2307 XOR1 (IN AC2. THE SECONO EXCLUSIVE 

17 ulfclfl 112414 Su»* n,2,S7.H (OR FORMS THE RESULT 

la ERRUN (OF ACB-AC1 IN AC8. 

19 »Mbl-2 „t>OH47 JSR flEHR 

2t LOOP 

21 riltto *«<t>U.2 JSR »ICVCLE 



1«,B23 AKHH 
11 

*3 BlwtiS jPKt"12 TN121 

?ia ji\«Pt> ti47n ET121 

*b B1HP7 U2i!lb4 

»c fialie I22«b4 

*7 .Hull OPblM 



JhP 


.♦2 


12 




L6A 


1.TN12 


LD» 


P,TSTNM 


SI.HLJ* 


l.K.SZR 


Jbh 


AISfUER 



rGET THE TEST NUMdEK 
(CHECK THE PROGRAM FLUH 



|TST»13 XUK 



ts: 



fB24 ArtlTH 

n 

M 

a 5 >lll!l2 «■ ! I? 1 b 4 T 1 3 i 
3b 

3; 

.Jb k)lH3 JPblBl 

It 
11 
12 
13 
1« 
15 
lb 
17 

lfc 

li 
21 
21 
22 
23 

24 K1b2S <tP04e2 

2b tn 1(426 lonjmia Tni3: 

26 H1K27 324777 E I 13: 

27 «Ht-3B tt241b4 
2t! K51U31 1224b4 

25 HIK32 dB61t«4 



TEST tCUNT.) 



* 1 H 1 4 

aiicl a 

isittie 
b l a 1 1 

ltl*2k' 
01B21 
k'l«22 



uBblp.3 
l3u4k>P 

.106075 
<-02352 

wB23b7 
U3t»14 



(M«i2J «ii»6Cl47 
«UB24 «,H01»2 



isz 



TSTNM 



StTUP 

JSR 

RANDOM 

JSR 

NEG 1,2 

CALL 

JSR 

XuH 

CALL 

JSN 

XUR1 

»B0« S!,2 ( !>ZH 

ERROR 



•IENTER 
PIRAND 

PICAL 

• IC»L 



(ENTERING A NE» TEST 

(SAVE C [AC 1 J NEGATED IN 

rC(AC2). EXCLUSIVE OR CCAC8) TO 

(C(ACl). EXCLUSIVE OR THE 
(RESULT BACK TO ACH, 

(CHECK VIA AOOITION TO 
(COMPLIMENT OF ORIGIONAL 



JSR 

LUOP 

JSR 

JMP 

13 

LOA 

LOA 

StiBO* 

JSR 



HERS 

PICYCLE 

.♦2 

l.TNli 
e.TSTNM 
1,«,SZR 
PISE8ER 



(GET THE TeST NUMBEK 
(CHECK THE PROGRAM FLOW 



(TST*14 XOR TtST (CUNT.) 



un;>;> akhh 
M (« 

*2 
*Z 
la 

■it «lil3J »1i1154 Tl<: I5Z TSTNM 

ao 
.47 X4 

^ B *. 1 W 3 4 K 6 1 *1 1 

^y 

li ui«35 fcbins 

11 v*1|c3b HbticK 

12 

13 Ml*i37 "016075 

14 tflMn t'i"2352 

15 ml 1441 ll»64|4 
16 

17 ilktlt i>P6M7 
18 
1M riHf>4i iCblf? 

an 

21 Hf«« KHU4U2 JMP ,»2 

22 (MMS B»i;(:14 tN|4! 14 

23 B1B46 1.24777 ET14! LUA 1(TN14 

24 ^1B47 12*154 LO» (",TSTN* 

25 «>lH5fc 122454 SuSO* l.P.SZH 

26 Hl»5l /Ctoltt4 JSR USEQfcH 



/.....it.....*..*..*...** 

(TST«15 XOR TtST CCCINT.) 



ItNTERlNG A NEK TEST 

StTUP (EXCLUSIVt OR C(ACB) TO 

JSR #1EnTER 

RANDOM (ALL ZEhOS IN C(ACl). 

JSB »IRAN0 

■SUB 1,1 

CALL 

JSK #1C4L 

XOR 

SUB* M,1,S2K 

ERROR 

JSH »IEN« 

LOOP 

JS" HCYCLE 



(GET THt TEST NUNUEH 
(CHECK THE PROGRAM FLOM 



ISZ 



TSTNM 



1-02S AWItH 
til 
Ik 
M 

<I4 

=16 Blt.fl! Hl-154 T]5 

^6 

*7 xs: 

06 >!lu53 kitfoleil 

US 

li «!1<)S4 /Pbll'3 

11 » 1K55 16124uft 

12 

13 «HS5e »!«16>75 

14 kllu57 ^i«2357 

15 rflBSe H'6414 
IB 

17 win* I v.«6*i47 
18 

19 ai^ez v"»oi«i2 

2C 

21 UltfBJ ^MW4^2 JnP 

2k ulHf4 ti gulp 15 TN151 lb 

23 BliflPa P247/7 ET15I LU» 1,TN1S 

24 Bilaou I92D154 LU» B.TSTNH 

25 »l«f7 122454 SUBO* 1,0, SZR 

26 niie7n <s*61«4 JSR PISEatR 



/ENTERING A NEH TEST 



StTUP (EXCLUSIVE OR C(AC1) TO 

JS* PIFNTER 

HANUOM (ALL ZEROS IN CCACB). 

JSR (URANU 

SUB P,P 

CALL 

JSR PICAL 

X0N1 

SUB* PJ,l,SZR 

EhROR 

JSR PIERR 

LOOP 

JSR PICYCLE 



.♦2 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM FLOM 



M27 »hIlM 
31 

»t 

M «ilv>71 el*154 Tl6I 

»7 x&: 

no iUk.72 ^eeiBi 
as 

it, tfl»73 «>P61B3 

11 nli74 ipueef 
12 

13 Hli«7!> »i>6?75 

14 «:l»7b HPi357 
lb "11B77 1 1 «5^eso 
16 ml Ifiio 140414 
17 

16 M11B1 2HBK47 

IS 

2fr HUC! /HB1K2 



)TS1«16 XOR TtSl (CUNT.) 



ISZ 



TSTNM 



SETUP 
JbK 

RANDOK 

JSR 

AUC P,<9 

CALL 

JSR 

»ORl 

COH 11,2 

SU80 2,1,32* 

ERROB 

JSR »1EKR 

LOOP 

JSR #ICYCLE 



•1ENTER 

4IHAND 

41CAL 



(ENTERING » NE« TEST 

lEXLLUSIVt OB CCAtlJ TO 

■(•1) IN CtACB). 

iTHt COHPL.IHENT OF 
(THIS RESULT SHOULD 

(EQUAL C(ACU. 



1PB28 AHITH 








«<1 








A2 011A3 i'P*4«2 




jnp 


.♦2 


*d Hllf.4 i^nS'ie 


TNlo: 


16 




ju tiiea «)24777 


ETlb: 


LD» 


l.TNle 


13 tllfl at2^1S4 




LOA 


n,TSTN« 


It UJl*7 122454 




SU80» 


1,0, SZR 


*"7 ^ 1 1 1 r ?t*Blv4 




JSR 


dlSEQER 



(6ET THE TEST NUNdER 
/CHECK THE PROGRAM FLOW 



*)?*& Art 1 1 1- 
11 



(TST«17 



XOR TEST tCONI.) 



1$ 
At 

*7 

Xb 
<tB 
1*1 
11 
1* 
IS 
14 
15 
Id 
17 
It 
IK 
81 
21 
32 

3d 
85 
8b 



•IENTER 



nllll U1.)154 T17! I5Z TSTNM 

x/: 

M1U2 ^ (" 6 1 K 1 

ulllJ rf("61«>3 

till" ldibfua 

11115 >"C!t>t»7"i 
<IU16 »ie?23b6 

11117 i5ie>*« 

EKHOH 
*ill8w vv*fttf47 JSR 4IEHR 

LUOP 
Ullfl l-HDl«)2 JSR HCVCLE 

HI 188 i"»«,4*l? JtlP ,*t 

.11183 «Pi'l>17 1M17t 17 

Wll8« d84777 £1171 LDA 1.T«I7 

nll8S i?idli* to* n,TSTNN 

X1185 12*454 SUBOH l,»,SiR 

(11187 >H>blii4 JSS #1S10EH 



SETUP 
JSR 

KANUUH 

JSU 4IRAN0 

«uv «,i 

CAUL 

JSR fICAL 

X0R2 

KCiV 2,2,SZR 

EKHOH 



(tNTERING A NEM TEST 

IC(ACl) IS SET tOUAL TO 

ICCAC0). CtACUJ ANO CCAC1) 

(ARE EXCLUSIVE ORED KITH 
I THE RESULT GOInG TO AC2. 



(b£T THt TEST NUMBER 
(CHECK THE PROGRAM FLOW 



mje ahii 
n 
'it 

114 

*$ Ull3to ' 

ft 

37 

lb mill / 

«B 

If nil 32 

11 «i i a j 

12 

13 H11J4 

14 01135 

15 BllSo 
10 

17 Hi 137 
IB 
IS «/114* 

an 

81 .31141 

22 01142 

83 Ml 144 

8« V1144 

25 (11145 

86 «•! 14b 



ITS1H2B XUR TtST CCONT.) 



T2«!I 



/,pb1 ir3 
18t«i«« 

flfo>7S 
d>i!366 
1 Self 14 

-1P&P47 

/■("61i<8 

vi?*i4«;2 
JiPnPZ? 
B84777 
*?* 154 
12*454 



TN2HI 



ISZ 



T5TNM 



SETUP 
JSR 

random 

JSR 
CUM 1,0! 

CALL 

JSR 

X0R2 

CUM* 2,2, SZR 

ERROR 



•IENTER 
• IRANI) 

»IC«L 



(ENIERING A NEM TEST 

(CCACa) IS SET TO THE 

(COMPLIMENT Of CCAC1), THE 

(RESULT OF A EXCLUSIVE OR 
(SHOULD BE ALL BITS 

(SET (-1), 



JSR 

LOOP 
Ji>R 

JMP 

2«! 

LDA 

Li) A 

SuPU* 

JSR 



• IERR 

•1CTCLE 

.♦8 

1.TN2* 
la, TSTNM 
1, CI, SZR 

•ISESER 



(GET THE TEST NUMBER 
(CHECK THE PR06RAM FLO* 



ttfjl » PI T P. 

no 



ITSI*21 tUH TEST CCONT.) 



HO 
Bb 
/I7 
J 6 
Mt 
IF 
11 
18 
1J 
14 
IS 
16 
1/ 
16 
li 
26) 

21 

23 

21 
25 



r-\l*7 BlelS4 T21! IsZ 



TSTNH 



M115b i»P61»«l 

^1151 1*23*0 

H1152 126PBV 

.11163 «lf!6<"75 

HU54 t,02352 

.11155 127704 

bllbe <lt»t>P.47 

H11S7 i«B61P2 



StTUP 

JS» HENTtR 

ALLS B'.KI 

AUC 1,1 

CAUL 

JSK #ICAL 

xt,» 

ANOS 1,1, SZK 

ERROR 

JSR »IEK» 

LOOP 

JS« HCYCLE 



(tNTEHlNG A NEH TtST 

(EXCLUSIVE OR ALL ONES 

ITO ALL 0«E5. TriE 
■RESULT SHOULU dE 
(ALL ZEROS, 



i"l 
a 2 

34 

.16 U1166 jilvtiSA T22: 

/IB 

^7 xin: 

a* .U167 Bfloini 

^S ("117«J leiTilS" 

IB *lU7l 12640(1 
11 

12 «iU72 006P75 

13 «U7J isr2352 

14 «11174 1B7314 
IS 

16 W1175 6l)l>rA7 
17 

ie Bii7s ttfai^g 



ITST122 XOR TtST CCONT.) 



H116n «?«4«2 JflP ,*2 

H1161 it-VWil TN211 21 

M1162 .124777 ET21I LUA 1,TN21 

fll6J «)2et54 LUA U.TSTNH 

SM164 122454 SUBU» 1,8, SZR 

iolies oaftlkU JSH •IStQtR 



(SET THE TEST NUMbEK 
(CHECK THE PROGRAM P1.UH 



ISZ 



TSTNM 
•lENTtR 



StTuP 
JSR 
SUBS », 

sue 1,1 

CALL 

JSR #ICAL 

XOR 

AOUSK 0,1, SZR 

EHRUR 

JSR »IEKR 

LOOP 

JSR »ICYCLE 



(tNTEHlNG A NEH TEST 

(EXCLUSIVE OR ALL ZEROS 

(TO ALL ZEROS, THE 
(RESULT SHOULU BE 
(ALL ZEROS IN CCAC1), 



HMJJ AK11H 

11 

»'i 101 1 77 i«Pl«M*2 

33 ,'12("/. »snv.P22 TN22I 

«4 H12P1 K.24777 ET22! 

516 «|12<"«! rf?«!lS4 

sib iliti 122454 

3; H12P4 »<C&1M 



JnP 


.♦2 


22 




lu» 


1.TN22 


LUA 


«l,TSTNH 


SUHU* 


l,?,3iH 


J5« 


•ISEQtR 



IGET THE TEST NUMBER 
ICHfcCK THE PROGRAM FLOM 



vest ah 
■ii 
in 
aa 

Tit 
■IS 
.16 
47 
n* «112/b 

1* U121V 
11 

12 ai2i* 

14 4121 1 
14 

15 V1212 
It. «I1213 
17 

lb MJ2J4 
!• 1.1215 
21! 

21 «1216 

22 01217 
23 

24 bllttlt 

26 B1221 
26 

27 81222 
26 W1223 
26 

3 k 

31 

32 

33 fcU2ft 

44 K1227 

.16 ml 23* 

36 

37 K1231 

36 

39 W1232 

41 

41 uliSJ 

42 r,1234 
10 («I23& 
44 H1236 
46 H1237 
46 01H4.O 



HS1R23 <DR TEST ICUNT.) 



12K5 «sl«iI54 



fcl2?4 
1.1226 



T23: 
xil : 



V"l»6l»3 

i«f»fi75 
v>P23t>6 

OB6C75 
£72362 

<>B6?7S 
■172352 

»«6(«?5 
tC2362 

C7SKI75 
4P2332 

«.B»f7S 

U02S52 

^02352 

et*23S2 
1324]4 

tfP6f47 

AHM»2 

K!»I<4k>2 
4H««23 
U24777 
*2*154 
122464 

WMMM 



TN23: 
ET23! 



ISZ 



TSTNN 



SETUP 

JSR 

RANUDM 

JSR 

CALL 

JSR 

XUR2 

CALL 

JSR 

XOR 

CALL 

JSR 

XOR 

CALL 

JSR 

(OR 

CALL 

JSR 

XOR 

CALL 

JSR 

XOR 

CALL 

JSR 

XOR 

CALL 

JSR 

XUR 

SLiB« 1.2.SZK 

ERROR 



• IENTER 

•1RARD 

• ICAL 

• ICAL 
#IC*L 
»1CAL 

• ICAL 

• ICAL 

• ICAL 

• ICAL 



(ENTERING A NEK TEST 

IfOHM EXCLUSIVE OF FUNCTION 

II* CCAC2). 

(CALL ANOTHER EXCLUSIVE 

IOR FUNCTION SEVEN UMES. 
•THE RESULT SHOULD BE THE 

(SAME AS THE FIRST XOR 



JSR 

LOOP 
JSR 

JMP 

23 

L04 

Ll)A 

SUBO* 

JSR 



• IERR 
•ICYCLE 

.•2 

1,TN23 
7fTSTNH 
l,tt,S2R 
•ISEUtR 



IttET THE TEST NUMBER 
JCHECK THE PROGRAM FLOR 



I« 



B035 AKITH 
»i 
»i 
13 
PI4 

fit H1241 010154 T24: 
06 

07 til 

jS«J M242 ePOUl 

as 

10 M1243 «C(iit3 

11 01244 14b?t*l>! 

12 01243 1124ifi 
la B1246 113P0H 
14 01247 140414 
15 

16 01250 «t!tjp>«7 

17 

IB I01Z51 0BSI«|2 

IS 

2k> 01252 u0H4t2 

21 01253 0I>IS>H24 TN24: 

22 01254 d24777 ET24: 

23 01255 020154 

24 01256 122454 
?5 01257 0Hblti4 



ITST«24 TtST HR0CES30R KITH AOD INSTRUCTIONS 



ISZ TSTNM rtNTEHING A NEM TEST 

SETUP [SAVE CIAC2) IN C(ACl). 

JSR #IENTLR 

RANDOM (ADD AND ADD CCAC0) TO 

JSR URAND 

»0V 2,1 (LCAC2). THE VALUE IN 

SUB 0,2 IAC2 SHOULD NOT BE 

>00 0,2 (CHANGED. 

SUBK 2,1,SZR 

ERROR 

JSR HEHR 

LOOP 

JSR »ICYCLE 

.♦2 



I IST«25 ADD TEST CCONT.) 



f«3t ARI1H 
t»l 

«k 
03 

04 

US kil2E0 «il0iS4 T25: ISZ TSTNH 

JI7 421 StTuP 

Bb 01261 *TC6 1 1*1 JSR »IENTfcR 

Pi RANDOM 

ltl 01262 <)i'Dlti3 JSR »JRANU 

11 01263 l«2flfe0 AUC B,0 

12 01264 123P0B ADO l,«l 

13 fllS!) I1140H JNC 0,2 

14 H1266 146414 SuB» 2,1,SZR 

15 ERROR 

16 IS1267 0<"BM7 JSR »IE*R 

17 LOOP 

16 01270 0P6I02 JSR «ICTCLE 



JMP 
24 

LDA 1,TN24 

LOA Sl,TSTNM 

SU8UX l.R.SZR 

JSR USEQER 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM FLOW 



(ENTERING t NfcH TEST 



1(5037 AhlTH 








»\ 








l»2 ^1271 yfntut 




JMP 


.♦? 


»3 HW71 ti0*F2S 


TN251 


as 




«* «U7o *24777 


Et25: 


uu» 


1,TN25 


«t» i«i274 iijuisa 




Lb* 


a,TSTNM 


AS fel27S 122454 




SuBO» 


1 ,»,SZR 


D7 H1476 «?0lil4 




JSR 


»ISEOER 



(GET THE TEST NUMBER 
ICHEC* TMt PROGRAM FLU* 



-u 
*2 
'/i 

jia 

3!> 01277 

■Ab 
*1 

a (r 

16 wl.J'l 

11 «,1J?2 

1 2 elaica 

13 HJf« 

1« HJes 
IS 

16 
17 
10 

IV 

21 (1311 

2i 01012 

2* y i ji j 

24 K1314 

25 H1J1S 



IIH 



I1STR26 »t>n TEST ICUNT.J 
)....*.............. «... 



"1U1S4 



pnei.M 

.1f»Slo3 
131465' 
li»236« 
143P6H 
1R6414 



T*«: 



Uf6 .176C47 
I it 1 «iK61»2 



/•Pi*i4k)? 

0*«.»26 
«i24777 
r?*llS4 

1224J4 
tf?61 H4 



<N26> 
ET261 



ISZ 



TSTSH 



»IEl>TER 



SfcTuP 
JSR 

JSR »IRANli 

INCC 1.2 
AUCLS *,» 

tunc 2,» 

SU«« B.l.SZN 
ERROR 



FEN1ERING * NEW TEST 

(INCREMENT THE VALUE IN 

IAC1 AND ADU THAT VALUE 

(TO (-1J. THE RESULT 
ISMUULO BE THE 0RIG10NAL 
INUMflER. 



JSR 

LOOP 

JSR 

JmP 

26 

LUA 

LU* 

SUDD* 

JSR 



• IEhR 

•ItYCLE 

.♦2 

I.TN26 
0,T5T«M 
1,0, SiR 
•1SEQER 



»BET THE TEST NUMBER 
ICMECK THE PROGRAM FLOR 



8>039 A k 
'11 
42 
«».} 
04 
v)S 8.1316 

sib 

i*b (,1317 
149 

10 01328, 

11 8.1321 

12 01322 

13 HI 32 J 

14 01324 
lb 0132b 

16 » 1 J?b 

17 01327 

18 >l»l 
1W 8,1.531 
2 If 01332 

21 01333 

22 01334 

23 0133S 

24 0133b 

25 01337 

26 0134a 
27 

26 (11.441 

24 

38 

31 

32 01343 

33 01J44 

34 0134b 
3b i!1346 

36 ID) 347 

37 1 3 S 



I 1 H 



1TSTK27 »00 TtST (CUNT.) 
|.. .............. ••*»•••« 



018)154 la7: 



8iwbl0l 

8,06103 
121020 
127200 
1272PM 
1272a? 
127200 
12728S0 
12720!! 
1272B0 
127200 
127204) 
127200 
1272f 
1272*!* 
1272.J0 
1272i«? 
1064b4 

00b047 



01-342 *0bl02 



8)081402 
000027 
8,24777 
020154 

1224b-4 

8)0bl8)4 



TN27: 
ET271 



I5Z 

SETUP 

JiK 

RANDOM 

jsx 

MOVZ 
• UDK 
AuDP 
AuOK 
AODK 
ADDK 
AUflH 

*UD(* 

ADDR 
ADDK 
ADDK 
AUDR 
»DPN 
ADBR 

Aunw 



•IEnTER 



IfcNTEKlNK A NEH TEST 
(SAVE THE CCAC1) IN C(ACB). 



J* "AUDR" INSTRUCTION SHOULD 



(NUT CHANGE THE VALUE OF 
(THE AC, 



5u90» 0,1, SZR 

ERROR 

JSH »1EMR 

LOOP 

jsb hctcle 



JrtP 

27 

LD» 

LDA 

SU80» 

JSS 



.♦2 

1.TN27 
0,TSTNM 
1,0, SZS 

UStOCR 



I6ET THE TEST NUMBER 
ILMECK THE PROGRAM t-'LOR 



8'040 AKITH 


01 






12 






H3 






'14 






as 


8)1.151 


«il01b« 


<16 






47 






3 b 


8.1352 


006101 


J V 






110 


8)1 Jbj 


0001*3 


11 


B1354 


nb4B0 


12 


0135b 


126300 


13 


8)iaS6 


137000 


14 


811357 


175400 


lb 


01360 


137000 


It 


811361 


17140? 


17 


013S2 


133000 


16 


01363 


151400 


IV 


01364 


133000 


20 


«)136b 


142414 


21 






22 


8) 1366 


8106047 


24 


01367 


006102 



MS1«30 



AUG TEST tCUNT.) 



I5Z 



TSTNM 



•IEnTER 



SETUP 

J4R 

hANOOr 

J5S »IRAND 

INC 0,3 

AOC 1,1 

ACQ 1,3 

INC 3,3 

AUH 1,3 

TKC 3,2 

ADO 1,2 

INC 2,2 

ADD 1,2 

Sub* 2,0,sZk 

ERROR 

JSR »I€RR 

LOOP 

JSR »ICTCLE 



(ENTERING A NE» TEST 

ITHE RANOUM NUMBER IN 

ICCAC0) IS INCREMENTED VIA 'I 

IANO DECREMENTED VIA "ADO". 
(THE FINAL RESULT IN CCAC2) 
ISHUULO BE EQUAL 10 THE 
I0RIG10NAL NUMBER IN C(AC0). 



lira*! AK! 


:th 








41 










v"2 H137b 


*V-Vl6ti2 




JMP 


.♦2 


33 *1371 


kl PI a, 01 3d 


TN3U1 


3u 




14 01472 


124777 


ETSfj: 


LUA 


1,TM3« 


«» t>137.> 


«2«ilS4 




LuA 


«,TSTN« 


1\b *!1374 


122454 




sueo« 


1i0, SZK 


H7 H137S 


ISP61H4 




J5R 


USEOEN 



(GET TMl TEST NUMBER 
(CHECK THE PROGRAM FI.UW 



V f4? 

til 



1... *..»........ #******»< 

I TS 1*31 ADD TEST (CtlNI.J 



^S ».'137b »lt'lb4 T31I 



*7 






Ab! 


SETUP 




Mfcj 


«!137/ 


iut?61v>l 




JSK 


#IENTER 


H9 








HANDUr 


1* 


tf 14Pd 


HK&1<*3 




JSR 


♦IRANU 


11 


V\W\ 


135HICP 




MUV 1, 


3 


12 


►'14012 


1 1 7 » *. * 




AUO Hi 


3 


13 


i:14i>3 


S>b443? 




STA 3, 


.AUOTEM 


14 


/J 4P4 


131n<f 




HUV 1, 


2 


15 








CAUL 




16 


«<14f b 


4f»6l>75 




JSR 


fICAL 


17 


ki 1 4W6 


UC2352 




XUR 




lb 


Hl4f>7 


143524 




AhDZL 


2,P),S2R 


19 


1! 1 4 1 /I 


ami774 




JMP .-4 


20 


» 1 4 1 I 


f ?*42? 




LDA m, 


rAUDTEH 


21 


to 1 4 1 2 


122414 




SUB» 1 


liDtSZK 


22 








ERROR 




23 


B1413 


*1LA6«47 




JSR 


• 1ERH 


24 








LOOP 




?5 


«i 1 4 1 4 


l; W o 1 ^ 2 




JSR 


»ICYCLE 


2b 












27 


01415 


uFMy2 




JMP 


.♦2 


2b 


til41t> 


ijfeifii 


TN31 ! 


31 




2B 


H1417 


il?4777 


ET3i: 


LbA 


WTMJl 


383 


«U42 t ! 


B2B1S4 




LPA 


B.TSTNM 


31 


B1421 


122454 




SUBO* 


l,i),SZR 


32 


■11422 


* ?()1H4 




JSR 


•ISEOfcR 



(ENTERING 
(THfc SUM OF ACB-1 
(CHtCKED KITH THE 
ISUM. 



A NEW TEST 



SIMULATED 



ISUM VIA AOO INSTRUCTION, 



(SIMULATE THE AOO VIA 
(EXCLUSIVE OR. C(AC2)« 
(RIPPLE CARRY, C (AC1 J "RESULT, 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM FLON 



;TS!«J2 AuO TtST tCONT.) 
|.<». ............. ....••• 



1ST. 



TSTNM 



Hl/ii 4RITH 

3 2 

SI J 

14 

«5 (,1423 IMSMS4 T32 

At 

*1 17: 

*b «1424 Cilblol 

Jl. 

IB K142& i"«hli)3 

11 ill 42b 11/44(1 

12 ■9142/' 1432H4 
13 

14 (1143W dC*6C47 
15 

lb 0)431 nflSlbZ 
17 

18 01492 1C1("K)1 MOV <>,(«, SKP 

11 B1430 177777 ADDTEm: -1 

2F 

21 C1434 /(**i4io2 JKP ,*2 

22 1 143b (1PHP32 TN321 32 

?3 til43b H24777 ET32I LD» 1.TN32 

24 H1437 «)2(M54 LD4 0, TSTNM 

35 K144C 122454 Su3U» 1,»,SZ» 

2b C1441 (tpol«)4 JSP »ISEaER 



(.1944 ARITM 
*\ 

"3 



11STH33 ADD TtST ICDNT.) 
j.. .......... ............ 



(ENTERING » NEW TEST 
/ADDITION OF NEGATED 



SETUP 

J5S HENTtR 

RANDOM INUMBERS SHOULD PRODUCE 

JSR 41HANU 

MtGC *,2 IZERD AND » CARRY. 

ACDn 2,(S,5ZR 

ERROP 

JSR »IERR 

LOOP 

JSR »ICYCLE 



IGET THE TEST NUMBER 
ICMECK TMt PROGRAM FI.OH 



■15 H1442 Ell.154 T33: 

P!b 

.97 A«: 

Ab (91443 *frSlWl 

3111 

1(> (,1444 ilt>bl«,3 

11 191445 15252P 

U B144b 1513KU 

13 K1447 15*4B(l 

t4 H45( 1437tf« 

15 U1481 1H532P 

lb 014 52 IPJlfaH 

17 IM4SJ IH31UH 

lb (11454 IPJtfaH 

lb 1.145S 1B31KP 

2f (1145b 166414 

21 

22 (91457 ,i(9o»!47 

23 

24 *M46*1 »*c961tf2 

25 



ISZ 



TSTNM 



(ENTERING A NEH TEST 



StTUP (ADD TEST, 

JSR HENTtR 

RANDOM 

JSR URAND 

SuttZL 2,2 (■(♦!) 

MGVS 2,2 l*(4tlU) 

NEG 2,2 MC1774BB) 

AnDS 2,14 (SAVE HIGH ORDER 8 BITS. 

MUVZS 0,1 (SAME 8 BITS TO C(AC1)L. 

ADDL 0,0 (MOVE CCACB) LEFT VIA 

ADDL (9,(9 MOD SHIFT. 

AUDL «>d 

ADDL 8,0 

SUB* »,l,SZR 

ERROR 

JSR »IERR 

LOOP 

JSR »ICrCLE 



11-H45 AKII* 

^1 

'12 

AS M<i6l ml*/. 1 

14 01402 1774ft* M4FrfI 

US .M463 i)*ii4n? 

i* b 1 . 1 4 b 4 tf p t» A J 3 T n 3 3 : 

« C11463 f247/7 ET3j: 

16 £1460 «2ul!>4 

^9 K1467 122454 



MUV 7, 


A,SKP 


-4BB 




JHP 


.♦2 


JJ 




LDA 


1,Tn33 


LP« 


H.TSTfvM 


SL)»U« 


1,0, SiR 


JSR 


PIStUtR 



»GEr the test numbem 

ICHECK THt PROGRAM H.OH 



»l47i /ii?ib4 T34: 



KH4ft 

/>1 

*2 
<3 
,14 
ab 

*b 

.47 

^b ,11472 ,mblv"1 

1i> 

IP K1473 
/] 474 
f 1«7S 

l3 /147ft 1 4 b ff f «? 

U 

,1477 ,.H6t?S 
flOfcU S-C2323 
>ilt)»l 121l!wH 



ITSTR34 SuUAWt ROUT TEST 



11 

U 



p3k766 

I337«.H 



lb 
lb 
17 

la 
li 
?e 
21 

2i 

23 ^1505 fK0M47 

24 

2b ,'lbfo i'fb|n2 

20 

27 1-1SP7 Ut"«'4f2 

2b kilbli" HS»,)P34 TN34: 

2S< nlbll ^24777 ET34I 

It I.U512 -12H154 

31 1-13 13 1224S4 

32 fib 14 ««0 1<1 4 



k) 1 P> 2 i"fco,<75 
fclbf3 OP24*! 
ulbP4 112414 



I5Z 



TSThM 



SETUP 
JS>< 

JSR 

Lb' 2,M4«it 

ANDb 1,2 

«UV 2,1 

CALL 

JSR 

. MP YU 

M&V 1,(1 

CALL 



•IENTER 

♦IRANu 



• ICAL 



(ENTERING A NEW TEST 

(THt URIGIONAL CONTENTS OF 

MCI, BITS 0-7 ARE SQUARED 

IVIA MULTIPLY. THE SQUARE 
IRDOT OF THE PRODUCT SHOULD 
IEOUAL THE OHIGIDMAL, 



(SEE SYSTEM REFPEKANCE 

(MANUAL FUR FURTHER INFORMATION 

ION MULTIPLY/SO ROOT 



JSR 

SuRT 

Sue* u 

ERROR 

JSR 

LuPP 

JSR 

JMP 

34 

LDA 

LuA 

SuttU* 

JSR 



PICAL 

,2,SZK 

• 1ERR 

»ICTCLE 

.♦2 

l,Tfc34 
B.TETNM 
t ,",SZR 
•ISEQtR 



(PROGRAMS, 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM FLUN 



fTSllOb b'j'JARfc TEST CCONT.) 



t*A47 AkITM 
11 
'M 
«i (>••« 

M> aiblb MU154 TJ5: IS* TSTnm 

!"6 

*? AK2S 

^P Silblb tittlBl 

IK. bl517 WP61H3 
11 

12 1»1S2«! U0&1"75 

13 01521 i'naani 
la tf!b2«: lflbssbf 

IS kJ 1 5 20 131KM1 

lb 

17 tMS24 »!l»6l"75 

IB Klb2S Htli323 

19 IMb2b 1217HA 

2e 

21 H1527 od6«i75 

2k: »U53»J HPii 4 10" 

23 H1531 118714 

24 

2b 01532 u?bl»47 

20 

27 *>153J HPD1H2 

26 

2» H1534 «00«»2 JMP ..2 

3» n 1 b3S «fHfP35 TN35: .13 

31 01536 824777 ET35! IOA 1.TN35 

32 Bt»4/ l»2i!lb4 LUA n, TSTNM 
3o Hlb4(r. 122454 SbBL* 1,P,SZR 
34 (11541 t?6104 JSR #istat» 



ItNTERING A NEW TtST 

StTuP (TAKE THE SaUARt HOOT 

JSR »IEr»TtR 

RANuI'm ;Uf A NUMBER, ThE SuUARt 

JSR HHANU 

CALL (ROOT OF THt RESULT SOUARED 

JS» JICAL 

SGRT ISHOULD RE IHt SAME AS THt 

"LVL «:,! IORIGIONAL ROdT. 

1UVL 1,2 

CALL 

JS» OICAL 

.mpyu 

«GU 1,4 

CALL ISOUAHEU N0« TAKE ROOT, 

JSP »ICAL 

Sb 

SUbS* 8,2,SZR 

Eh ROB 

JS» #1ERR 

Lunp 

JSR HCYCLE 



S'P148 ANIIH 
M |. .................... ...... 

It MST«3b SUUARE TEST CLOnT.) 



IS? TSTNM 



(ENTERING A NEN TEST 



Ml 

'5 «1S4«> (iuis< Toe: 
nb 

»7 AR3: SETUP (FInO SQUARE ROUT VIA 

.16 S154J „nolul JSR HENTtR 

M RANdOM IDIFFIRENt SUBRUUTINES, 

If H1D44 iifo 1 23 JSR fIRAND 

11 kMb4b 14lPk!!» *UV 2,(» 

12 CALL 

10 ?J154S tnbt"7b J5R »ICAL 

14 nb</ «M»24tfl SURT 

15 (115SB l(»bt"l»!» MOV P,l ISAVE FIRST RESULT IN AC1 

16 i'15bl 141?«t[» MOV 2,3 

17 CALL 

lb t!S52 <vb<f7S JSR HCAL 

19 I-.13S3 D("24it" Su (RESULT IN AC0, 

2K Wlbb4 1PS7J4 SUBS* 0,1, SZR 

21 ERROR 

22 1.1S55 vl"S»47 JSR »IERR 

23 LOOP 

24 nlb56 i-»«olt!2 JSR »ICYCLE 



(GET T«fc TEST NUMBER 
(CHECK THt PROGRAM FLUR 



lt)H49 AhllH 








M 








*'i Bias/ «p«i4«)2 




JnP 


.♦2 


*J X156B BPicPae 


TN36! 


36 




«4 missi tain 


ET36: 


LOA 


1 ,TN3b 


36 U1562 B2wl54 




LDA 


B,TSTNM 


«6 «I56J 12*454 




SUHu* 


1,«,3/R 


"17 *il564 tf(*blfc4 




JSR 


•ISEUtR 



(GET THt TEST NUMtfEK 
(CHECK THE PROGRAM Fl.UM 



t>B5«« AKI 

U 
ax 

/>4 

js Biat>s 

db 

"6 Bi6fb 

■*tt 

10 k1567 

11 »157» 

12 f 1571 
13 

14 B157* 

16 H1S73 
16 

17 *1674 
lb k 1 57S 

15 B1576 
2H Pi 167 7 
21 

22 uieieu 

23 Blbfl 

24 \t\bV'i 

25 

26 Biaej 

27 ntbeu 
2b UI6P5 
29 

3t BlBlCb 

31 

32 B1607 
33 

34 uibli) 

35 nlbll 
3b B1612 
37 t;lbl3 
3D «lbl4 
m i. lb 16 



|TST»37 SGUAHt TEST CCOHT.) 



(|>S»4U? 
Kl0U?37 
B24777 
B2.3164 
122464 

Vreibl?4 



11(1154 T37: 



^piblul 

BC61B3 
142432 
tf«ts776 

>il»234'» 

s>«bl"75 
KP2324 
B.34147 
156414 

W06047 
1-34 146 
136714 

tfP6047 
««341«5 
116714 

«.i»6I"47 

Ir. 116102 



TN37: 
ET37: 



IS2 



TSTNH 



HENTER 



SETUP 

JSR 

RANDOM 

JSR fIRANO 

SUHl.lt 2,M,SiC 

JMP .-2 

CAUL 

J»R »1C>iL 

.UI Vtl 

call 

JSR »ICAL 

.MPYA 

LOA 3.0AC2 

SUd« 2,3,SZP. 

ERROR 

JSR »IEKR 

LOA 3,0AC1 

SUBS* 1,3,S*R 

ERROR 

JSR #IERR 

LuA 3.UACS) 

SUBS* H,3,Si:R 

EkROR 

JSR *1EPR 

LOOP 

JSR ♦1CVC1.E 



JMP 

37 

LOA 

LDA 

SU60» 

JSR 



(ENTERING A NEK TEST 

(THE CONTENTS OF AC2 IS 

(DIVIDED INTO ACB-1, 

(THIS RESULT MULTIPLIED 
1ST AC2 SHOULD PRODUCE 
(THE URIGIONAL NUMBERS, 



(AC2 CHANGED? 



IAC1 CHANGED, 



(ACB CHANGED. 



.»2 

1,TN37 
H, TSTNH 
1,B, SiR 
»1SE0ER 



IGET THE TEST NUMBER 
(CHECK THE PROGRAM FLOW 



BB51 4H: 

111 

■M 
*3 
*4 

*s moid 

nb 
*7 

Mb H1617 

*» (Mb2, 

If *1621 

11 m 1 ti » « 

12 »U2J 

13 *1624 

14 01625 

15 fclbZb 
lt> *1627 

17 BlbS* 1 

18 01031 

is tibsa 

2C illbJJ 

21 

22 ?1 634 

23 

24 *1635 

2S 

2b *163o 

27 01037 

2o ai04» 

2» C" 1 641 
3tf U1642 
31 K/1643 



|1ST»4B 5UU»«t U5T CCONT.) 



*1*154 T4K: 



*l«61»l 
15244(1 
1515*4 
1515H4 
1515*4 
1515«14 
1515*7 
1515*7 
1515*7 
1457*7 
1514B7 
1514ioOI 
133*14 

*»61»47 

<ebl*2 

tf 0104*2 

^*w«4A Tna*: 

424777 ET4*: 
1-2*154 
122454 
/Pbl *4 



ISZ 



TSTNM 



StTuP 

JiR HEnTER 

SuBU 2,2 

INCL 2,2,SZR 

INCL 2.2.SZN 

INCL 2,2,SZR 

InCL 2.2.S7R 

INCL 2,2. SBN 

INCL 2, 2, SBN 

INCL 2,2, SBN 

INCS 2,1, SBN 

INC 2, 2, SBN 

INC 2,2 

AUP« 1,2,SZH 

ENBQR 

JSP #1FHR 

LOOP 

JSR #ICYCLE 



JnP 

4* 

LDi 

LOA 

5ufl0« 

JSR 



ItNTEhlNG A NEW TEST 



(USE INC TO FORM 



(THE NUMBER 177400 

(IN AC1 AND 408 IN AC2. 



(THE "SBN/SZR" SHOULD 
■NOT CAUSE A SKIP. 



.♦2 

1.TN4* 
K, TSTNM 
1,U,SZR 
•1SE3ER 



H*52 AH! 

•11 

H2 
•fj 

^4 

d5 111044 

«6 
a; 

<!• 1)1045 
<"9 01646 
IV 01647 

11 0169* 

12 01651 

13 k.1652 

14 B1653 

15 B1654 

16 1X1655 

17 B1656 
16 *1657 
IS *166«1 
2k 

21 611 66 I 

22 

23 *lb62 



ITST< 



41 SCIUARE TEST (CONT.) 



*t*154 T4i: 



«i*61S!l 
12642* 
1256»6 
1256B6 
1256*6 
1256*6 
1256*6 
1256*6 
1256*6 
1256*6 
13*3*4 
132714 

Yf)6i)47 

4061*2 



ISZ 



SETUP 




JSR 


»1EnTER 


SuBZ 1 


1 


INCH 1 


l.SEZ 


INCH I 


l.SEZ 


INCH 1 


1,!>EZ 


INCH 1 


l.SEZ 


INCH 1 


l.SEZ 


INCH I 


l.SEZ 


INCH J 


l.SEZ 


INCH 1 


l.SEZ 


CONS 1 


2.SZH 


SUBS* 


/2.SZR 


EHRUR 




JSR 


• IEHR 


LOOP 




JSR 


•ICTCLE 



(ENTERING A NEK TEST 

(USt THE INCR INSTRUCTION 

I TO FORM THE NUMBER 

1177408, THIS NUMbEN 

(COMPLIMENTED AND SmAPPEO 

(SHOULD BE THE SAME 

(NUMBER. 

(THE "SEZ" SHOULD NEVER 

(CAUSE A SKIP. 



(SET THE TFST NUMBEH 
(CHECK THE PROGRAM FLOW 



IU053 AKI1H 
«1 










JMP 


.+2 


^3 Kilb64 ^Bnf4i 


Th41 : 


41 




.14 B166S C24777 


ET4j : 


LD» 


1.TN41 


?S *>1666 .12^164 




LU* 


0,T5Tnm 


/h ^1667 122454 




Sueo* 


1,«I,SZR 


'17 k* 1 6 7 tfvoliM 




JSR 


• IStikR 



I bET THE TEST NUMBER 
(CHECH THE PROGRAM FLOW 



f «54 

a I 

.12 



(TSI«42 SOUARt TEST CCO»«T,) 



"1071 /l«154 T«2: 



tl 






•>b 


W1672 


*■ v* 6 1 w 1 


m* 


ul 67J 


1^2625 


IB 






11 


tf1674 


(1KOC47 


12 


U1675 


ll'44tf6 


1J 






t4 


11676 


i^Pb.147 


15 


1-1677 


124402 


16 






17 


<)17?a 


*f»6047 


16 


«' 1 7 f 1 


124463 


IV 






2« 


U17P2 


«b>byi47 


21 


W17KJ 


12441,7 


22 






2J 


I 1 7 ? 4 


<«Be?47 


24 


»'17es 


124465 


2b 






26 


1, 17P>0 


«il'6»S47 


27 


H17P7 


1244R8 


26 






29 


fe: 1 7 1 id 


«;K6P47 


3*: 


<)171 l 


1244H7 


31 






sj 


(1171* 


k**6H47 


39 


U171J 


1244i)7 


34 






3 b 


141714 


&flefl47 


36 


ul? lb 


1C6414 



37 

36 r|716 HPSM47 

IV 

4»' ^1/17 KK61H2 

41 

42 «172m tfuA-ii 

4j H1721 «0<;M42 TN42I 

44 <<1722 1024777 E142S 

4b -1/!J o2^154 

4b 01724 122454 

47 lul/25 HH61U4 



HENTtR 
l,H,SNR 



• IEkR 



IS2 

SETUP 

JSR 

SUBZR 

ERROR 

JSR 

NEC A, l.SEZ 

ERROR 

J5H #IERR 

NER 1,1, SZC 

ERROR 

JSR #IFRR 

NtGC 1,1, SMC 

ERROR 

JSR »IERR 

NfcG 1,1, SBN 

ERROR 

JSR »IERR 

NEKC. 1,1, SNR 

ERROR 

JSR »IERR 

NtGC. 1,1, SNH 

EkPOR 

JSR (IERR 

Np. & 1,1, SBN 

ERROR 

JSR »Ifc«« 

NtO 1,1, SBN 

ERROR 

JSR »IEKR 

SUB* U.l.SZK 

Error 

JSR 

LOOP 
JSR 



JhP 

42 

L0» 
104 

SUBO* 
JSR 



»IEHR 

•ICYCLE 

.♦2 

1 ,TM2 

B.TSTNM 

l.lfSZR 

•ISEOER 



(ENTERING » NEK TEST 



nannaa negated is 



STILL 1BBBBH, 



(CCCARRY)«B 



ICtCARRTJH 



»Ctn»lB00BB 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM F1.0H 



eo56 »kiih 


01 






*'< 






ij 






04 






JIS 


01726 


«10(S4 


00 






17 






lib 


«l 727 


wPblol 


o» 


ol73o 


102440 


in 


P1731 


1B0702 


11 






12 


H1732 


tuf.btml 


13 


0173.} 


100762 


14 






15 


01734 


0P6»47 


16 


01735 


10/)7k,6 


17 






16 


0173i> 


006047 


IV 


01737 


100706 


2e 






31 


01740 


006047 


22 


t.1741 


1G0544 


23 






24 


«1742 


«06«47 


?5 


ID1743 


100403 


2t 






«7 


01744 


0(J6e>47 


2b 


01745 


100644 


as 






3o 


0174b 


006PU7 


31 


01747 


l»47o4 


32 






3.5 


0175o 


HS"b047 


34 


01751 


1307e4 


35 






3d 


01752 


006047 


3; 






36 


K1753 


006102 



>TST»43 SuUARt TEST UONT.) 



T43: 



ISZ 



TSTnm 



• 1ERR 
,SEZ 



JSR 

NtGS 0,( 

ERROR 

JSR #IERR 

NEGQL B.O.SZH 

ERROR 



#IERR 
I.SNC 



JSR 

NEG II, 

ERROR 

JSR #IERR 

ntX,W 0,0, SZR 

ERROR 

JSR «IERR 

*EGS 0,1, »Zh 

ERROR 

JSR »IERR 

MEGS 1,2,SZR 

ERROR 

JSR flEKR 

LOOP 

JSR HCYCLE 



UTTERING » NEW TES1 



StTOP 

JSR HENTtR 

SUBO 0,0 

NtGtS 0,0, SZC 

ERROR 

JSR HERR 

NtliLS 0,0, SZC 

ERROR 

JSR #IERR 

NtGS 0,0, SEZ 

ERROR 



(NEGATION OF ZERO 



(SHOULD PROOUCE ZERO 
(AND A CARRy, 



10056 ARITh 

01 

12 01754 *OO402 

<*i 0175b o«0l>43 1N43: 

"4 01756 024777 ET43: 

US 01767 020154 

3b 01760 122454 

t»7 01761 B06104 



JMP 


.+2 


43 




LL>» 


1,TMJ 


LDA 


a,TSTNH 


Su8U« 


1,(1, SZR 


JSR 


•ISfeOER 



(GET TMt TEST NUMBER 
(CHECK THE PROGRAM FLON 



HBS7 AKITM 
ill 

82 
*3 



[TST»44 SUUARt TEST CCONT.l 



l« 



1ST. 



TSTNM 



Jib tv 1 7b2 Hltfl5<l T44I 

06 

<)7 »K9: 

»»B «.1763 kipblfl 

«S 

1H tl 1 764 u-i C" 6 1 n 3 

11 01765 1 5i!4BH 

lie 

13 H1766 ,)P6075 

14 .11767 «P2324 

15 B177« 03414S 
lb 81771 1S6414 
17 

IB B1772 ^«b«47 
lb 

2P H1773 ^l»bHs2 
21 

22 i!177« «'H«l4u2 JMP 

23 ;M?7b ti(*«W44 TN44: 44 

24 «1177e i)24777 tT44l L(JA 1.TN44 
2b ml 777 »2»<lb4 LU4 ?, TSTNM 
26 H2BBH 1224S4 SUB0« l,(»,S/» 
2/ H2BP1 uK6Iti4 J30 HSfcOER 



(ENTERING 4 NEW TEST 
IC(«Cl]*0*C(ACe) SHOULD 



StTuP 

JSR 01ENTER 

RANDOM IPLACt AC8 IN AC1. SEE 

JSR fIRAND 

SUB 2,2 (SYSTEM REFFERANCE MANUAL 

CALL (FOR FURTHER INFORMATION. 

JSR *ICAL 

• MPTA 

L&A 3.0ACH 

SUB* 3,1,SZH 

ERROR 

JSR #IEHR 

LOOP 

JSR flCTCLE 



.♦2 



(GET TMfc TEST NUMBER 
(CHECK THE PROGRAM FLO" 



P038 ARIIH 
*\ 

«i 
■fi 

v!4 

at U2»t>2 ■- 1 f 1 3 < t<5: 

Kb 

4/ arib: 

ae *\'4vv& KG»61»1 

dM i)2{f.<»4 ir23»? 

1»| »2«!lia l(»b7t}b 

11 «!2iH«b 1J«J»4 

12 »2fc?7 14b7kl5 

13 42f»l« 124346 
1« U2011 131707 
lb B2U12 ib«3u4 
16 «!2E13 161704 
17 

16 b2al4 *f6047 

lb 

2k' «)2tMb feb]*i2 
21 

22 l"2Klti k'Mk'4i)2 

23 tf2«t!7 ,a(?kii!45 TN4S! 

24 «l2kl2e B24777 ET45I 
2b H2K21 r?t>lb4 

26 <l2t,22 12i4b4 

27 »2Sj33 ritfble4 



1. ....»»*. .......... *..*.„., 

(TST*4!i SUOARc TEST (CONT.) 



ISi 



TST»M 



SETUP 

JSR HENTtR 

aocs e,i 

INCS t, 1,SNR 

CUMS 1,2,SZH 

INCS 2,1, SNK 

CO"0S 1,1, SEZ 

INCS l,2,SBN 

COMS 2,2,SZK 

INCS 2,2,SZR 

ERROR 

JSR HEMR 

LOOP 

JSR HCVCLE 

JMP ,*2 
4b 

IDA 1,TN4S 

LDA tl, TSTNM 

SUBO* l,d,SZR 

JSR #ISEQER 



(entering a nek test 
(Test "com/INC" Swapped, 



(GET THE TEST NUMBER 
(CHECK THE PROGRAM FLO* 



(TSt«46 SUUlRfc TEST CLONT.) 



IbZ 



TiTNM 



MM AKIIH 

1\ 

M2 
M 
it 

85 P2024 ^ 1*5 1 54 146: 

H/ »K11 

"6 U2*2a fFSleil 

>1K 

It *J2a2o tftfblwi 

11 «2»27 ll«!4e>* 

Ik U2»3tf 104010 

13 <I2(831 1254ufi 

14 u2t!32 132414 
15 

16 t<2t)3J <<[«6047 
17 

It is2ig34 flBBloa 
1H 
2V l^SK35 a«i)482 JMP 

21 0?»3B PJlifMS TN46I 46 

22 U2B37 024777 ET4&: LU» 1.TS46 

23 B204a U201S4 L0» P.TSTNM 

24 I02IS41 122454 5UBUH 1,(1, SICK 
2b *2»42 <i0<>li*4 JSB UStUtR 



(ENTEHING A NEW TEST 



(ENTERING » NEH TEST 



StTuP (COMPLIMENT AND INCREMENT 

JSR HENTEN 

Ranuom (SHOULD BE THt SAME AS 

JS.N »IRA~D 

NtG 6), 2 (NEGATE 

COM p,l 

INC 1,1 

sua« i,2,szk 

ERRUR 

J5R »IENR 

Lorp 

JS« HCYCLE 



.♦2 



ease ahiih 

dl j ........ ..••.•••♦•••••••••i 

02 (TST«47 SuUARE TEST (CONT.) 

it,j ;..........«».»•••»•.•••••.• 

"5 B2»i43 *1«!154 T47: IS2 TSTNM 

37 AH12: SETUP (TEST COM LEFT AM) MIGHT. 

.10 ts2«>44 aPblBl JSR »I£NTER 

fttf RANDOM 

In K28J4S «P61t»3 JSR »IRAND 

11 tf2H46 llflltia COML 0,2 

12 fl2D47 144200 CQMCR 2,1 

13 s>205tt 106714 SUBS* B,1,SZR 

14 ERROR 

15 tf2P51 ?P6«!47 JS« »1E«R 

16 LOOP 

17 i*2i>52 a»>61u2 JSR #ICTCLE 



(SET THE TEST NUMBER 
(CHECK THt PROGRAM FLOM 



WC61 ANIlH 








31 








Ji'i e2f>5d F<* r <>4u2 




JMP 


.♦2 


^0 «t2t>5A k,Pl1PU7 


t*47: 


47 




<I4 tf283b 6,24777 


ET47: 


LU4 


1.TM7 


»3 t:?.£5t, ilHlSa 




LB* 


n.TSTNM 


ft 102057 122131 




SbBOB 


1,I»,SZR 


xy u2n6o e.s<61»>4 




J5R 


•IStOER 



(GET THE TEST NUHdEH 
(CHECK IHE PROGRAM FLOW 



SullARE 1EST (CONT.) 



fcflb? ARilH 

■ft |TST*3'» 

•M !•••••-•••••••••••»••.• 

H4 

i«S «.?«61 k/ 1 /i 1 S 4 T30S IS2 TSTNM 

16 

37 irtu: 

-*b U2062 CPfcllM 

v«S/ >)2k6J l?i»i2/i 

1^ *)2n64 1 7 fr [» «-■ P 

11 |p?l"63 117?K? 

12 »2l»6b 1G37»,4 
10 tf2067 00*1775 

14 02JI7r) ln26bl« 

13 *2m71 l7062l» 

16 B2B72 1231192 

17 H2B7J 1014^18 
lb K2»74 173224 

15 k-,2873 WPD775 
2e U2U76 1132UP 
?1 »2«77 1P3H12 
22 

20 i'2l9n t»?6P47 JSK #IERR 

24 LUOP 

23 (r 2 1 r» l nnblCS JSR #ICYCLE 

26 

27 /?ie2 «e«i4n2 JnP ,*2 

2b K21P3 »«pf»5n TnS«: 581 

2S< «>21P4 «?4777 ETSie: LPA l,Tl«5«! 

Jfc mS IBS i'2^134 Ub» H,T3TNM 

31 .i21Pb 122434 SUf>0« l,B r ,SZR 

it f2l«7 ^P61H4 Jb» •ISfcQER 



SETUP 

JbH *1EMTER 

HOV/ l»,l 

IDC 3,3 

»uD <»,3 

ANOS J.0 t SZK 

JnP .-3 

SUBCR B,0 
SuBZR 3,3 
MUVL 1,1, SZC 

inC f,e 

MQVZR 3,3,SiR 
JHP .-1 
MCJVN 4,0 
AUDU u, it, SZC 

ERROR 



/ENTERING A NEN TEST 

(FORM THE PARITY OF 

(CCAC0) IN UIFFIRcNT 
(ROUTINES. CHECK THAT 
ITMt RESULTS ARE EOUAL, 

;5AVE PARITY IN BIT B, 



(BIT 15 KILL CONTAIN 
ITHE PARITY, 



(CHECK TO SEE IF BITS 
(ARE LIKE. 



(tET THE TEST NUMBER 
(CHECK THE PROGRAM FLOW 



ITSTHbl SUUAME TEST CCONT.) 
|. ....... ................... 



(ENTERING A NEN TEST 
IMSC TEST OF SuB LEFT 



t.063 AKHH 
11 
<? 
»I3 

i?U 

»3 b211k) *lulb4 T5i: ISZ TSTnh 

■*b 

d7 ANlbl SETUP 

JiH H2111 tfPOim JSP »IENTtR 

14 k SANUO" UNO RIGHT. 
ID 112112 ioPBlio3 JSR »IrtANL 

11 H2113 1311"I8I» "OV 1,2 

12 U2114 JURSna Sut-L 0.1 

13 «>211b 12760SI ANOn 1,1 
1' b21 1 b lifl7Baia ADD 1»,1 

15 02117 1CI650P SuBL «,l 

16 H212B 1276DO AMI* 1,1 

17 i>2121 l(»7pf»fl AOO 0>,1 

16 02122 132414 SuBo 1,2,SZR 

IS) EkRCjR 

2P 6>212j wnfcw47 JSP. »1EKK 

21 Ludf 

22 102124 tf(»61H2 JSS *IC*CLE 
23 

24 i>212b /t««?4«2 JhP ,*2 

2b B2126 ia Pi « C 5 1 TN51! SI 

26 H2127 ii24777 ETSi: luA 1,Tn51 

27 H213i> <2Mb4 LOA «,TSTNM (GET THE TEST NUMBER 

26 02131 122464 SUScm l.a.SZR (CHECK THE PROGRAM FLOR 

29 d2l32 2IP61H4 JoK USEQtR 



tf»b4 APITh 

HI [... .................... ..•• 

-"2 JTSI«b2 SuUARE TEST (CONT.) 

33 |. ................ .......... 



(ENTERING A NEN TEST 



Pit k'2133 alMbA T 3 2: ISZ TSTNM 

Jib 

a 7 AR16: SETUP (MISC TEST OF ANfl RIGHT. 

15 i>2134 tfil^l JSP HENTfcR 
Ay PANljOM 

lr tf213b DI"61k.3 JSR URANO 

11 02136 131Mf "OVU 1,2 

12 H2137 113SP? ANDR b,2 

13 1«214B 118740? AND 81,1 

14 H2141 151103 *OVL 2,2 

lb U2142 146414 SUB* 2.1.SZR 

16 EHRUR 

17 fc2143 >-?6K47 JSB HEKR 
IB LOOP 

\U V2114 i^blB? JSR #IC»CLE 



IHB05 AKIT* 








*Z 02145 (S8l.J4f<2 




JnP 


.♦2 


►M «>2i4& ocaP52 


TH52: 


52 




a< «>2147 «,24777 


FT521 


LU4 


1.TN52 


lb ,1215t, ^2H1S4 




LOA 


iJ.TSTN" 


•lb u2l5l 122454 




SURU« 


l,n,sza 


17 (42152 .<!Jbltf4 




J5R 


»ISEQEH 



ftfbb 



l< 



(SET TMt TEST NUHBER 
(CHECH THE PRUGNAM FLOW 



■"2 

.13 I • * • 

34 

Jit 1121SJ nl,tl54 T53! 

**b 

W A«17 

"!6 *2154 osiblnl 

?! S* 

1H H2155 

11 H21S6 

12 02157 

13 n)216j 

14 »IS161 

15 02162 
lb 
17 
lb 
IS 
2U 

21 «,2165 iHM4U2 

22 02166 Hf,/lfi'i 

23 H21*7 d24777 

24 «217«i ,122154 

25 H2171 122454 
2b *2172 /1B61H4 



|TST*53 SLUARt TE$T (COhT.) 



IS2 TSTM* JENTEKluG A NEK TEST 

imisc »un snapped test. 



ePbl«3 

131K»B 

1 13PMW 
1P7320 
1253t<» 
132414 



^2163 tPbl'47 



112164 0P6102 



TN531 
E153! 



SETUP 

JSH 

RANUOM 

Jb« #IRA 

rtOV 1,2 

Al/U 0,2 

ADDS 0,1 

MUVS 1,1 

SUB* 1,2,SZ>. 

ENROR 

JSR PIE* 

UUOP 

JSR 



•IENTER 



J*P 

53 

LDA 

LOA 

SUBUX 

JSR 



#ICVCLE 
.♦2 

l,Tn53 

B,TSTNM 
1,19, SiR 
•ISEOtR 



ItET THE TEST NUMBEH 
FCMECK THE PROGRAM FLON 



0HS>7 ArtltM 

«1 
•12 

fit 



HSK54 SQbARE TF5T (COST.) 



(■'(108 AKITh 
HI 



/M 



IS.Z 



T3TNM 



05 02173 010154 T54: 

06 

17 AK16 

•Jb 02174 006101 

39 

1H 02175 «:»61«>3 

11 0217b UIMB 

12 U7177 11212? 

13 022»0 miimum 
U 022P1 10712* 
IS W2202 132414 
16 
17 82281.5 005047 

ie 

\y Jim of s i ^s 

2? 

21 022C5 0004U2 JMP 

22 U22l?6 S-00054 TSS4S 54 

23 02207 »24777 E154i Ll/A 1,TN54 

24 02210 020154 LDA 0.T5TNM 
2D H2211 122454 SuBO* 1,0, SZR 
?b 02212 ir«U4 JSR HSfcQER 



StTuP 

JSP HENTfcR 

hamjom 

JS» WttHQ 

«0V 1,2 

AOCiL 0,2 

COM 0,0 

Al/DZL 0,1 

SuBO 1,2,&2K 

EURO"! 

JSR »IERR 

LOOH 

Ja» HCYCLE 

.♦2 



/ENTERING A NEK TEST 
ICHtCK ADC LEFT. 



ITSTOSS StaUARE TEST (CONT.) 



IGET THE TEST NUM8ER 
(CHECK THE PROGKAM FLON 



ISZ 



M4 

«5 02213 010154 T55: 

nb 

0/ AXIS 

fid 02214 00f>l0l 

1? 02215 006103 

11 H2216 131000 

12 02217 112220 
M u222» 108»00 

14 02221 107220 

15 02222 132414 
lt> 

17 02223 006047 
lb 

1U 22224 006102 
2» 

21 02225 f004B2 JHP 

22 »)222b 000055 TN55: 55 

23 02227 024777 ET5b: IDA 

24 02231- 020154 LI) A 

25 02231 122454 SUBU 
2b 02232 00bl»4 JSR 



TSTNM ItNTEKING A NEH TEST 

MEST ADC RIGHT, 



SfcTuP 

JSR #1ENTER 

RANUOH 

JSR »IRAND 

MOV 1,2 

AOCZR it, 2 

COM B,0 

AulUK 9, 1 

SiJBH 1,2,SZK 

ERROR 

JSR #IERR 

loop 

jsr #icycle 

.♦2 



1.TN55 

B.TSTNH 
1,B,SZK 
USEQfcR 



(SET THE TEST NUMBER 
ICMECK THE PROGRAM FLON 



0H09 «HITH 

*4 



|TST»56 SuUARt TEST (CONT.) 



^s ^?233 ^miaa T36: 

«7 M2t!I 

i)f «)223<1 JP61IM 

lki H223S «)P61«]3 

11 .*?23o 131P.0U 

12 *>223/ 1K662H 

13 U224d lBto42P 

14 <r>2241 1132HH 
It «)2242 1324)4 
ID 

17 S-S243 ^^08147 

16 

19 C2244 <i<01«2 



I.SZ TSTNM ItNTERlNG « NEW TEST 

(TEST SUB BIGHT, 



#I£NTEH 
•IRANL 



SETUP 

JSH 

H4NUUP 

JSR 

«UV 1,2 

SUB2R 1,1 

NtGZ i),B 

AIjDH 0,2 

SUHO 1,2,SZR 

tNRUR 

JSR »URR 

LOOP 

JSR #ICYCL£ 



l«]»7t» 4KIIM 








5"1 








** 








.13 ^8246 rV'Atv.i 




JWP 


.♦» 


M «:224o tftiM056 


TN5»: 


56 




<<S H2247 H24777 


FT 561 


Lu» 


liTf.56 


16 B?ii5» (*2<!154 




L04 


G.TSTNM 


*7 h225l 122434 




SUBU* 


l,C,5iR 


i«e C2252 «i*-6lt)4 




JSR 


•ISEOtR 



IGET THE TEST NUMBER 
»CN£CR THE PROGRAM FLO* 



0071 

.11 

XI 



HSTN57 TtST THAT INOEX "ITh SIGN BIT DOES NOT LO»D SIGN BIT 



006101 
004401 
171122 

OP6047 
15124*1 
005004 
004401 
1 65t"Bi» 
125112 

OflO047 



02266 006102 



05 02253 ol»154 T57: ISZ TSTNM 

06 

07 

'IB M2254 

3H 02255 

10 02256 

11 

12 02257 

13 U2«!6(s 

14 02261 

15 02262 
lb 02263 
17 02264 
IB 

111 02265 
20 
21 
22 

23 02267 

24 0227b 

25 02271 

26 02272 

27 02273 
26 02274 
2 Si 

30 02275 

31 02276 

32 02277 
33 
34 02300 

36 02301 
30 02302 

37 02303 
3B 02304 

39 o2305 

40 02306 

41 02307 

42 02310 

43 02311 

44 192312 
4b 02313 
46 02314 
47 

48 02315 006075 
4» 02310 032461 
St, Sf.QERI 

51 02317 006075 

52 02320 003065 

53 02321 004143 

54 o2322 0B2100 



010164 AHENDt 

020164 

024142 

034045 

107414 

000415 

006075 
003065 
004170 

634045 THEM: 

025400 

125004 

015403 

O00405 

f 21403 

031404 RTR.N! 

041376 

001000 

126400 ENUtl : 

044153 

011402 

002060 



StTuP 

JSR FIENTER 

ISO ,fl 

MUVZL 3,2,SZC 

EkRuR 

JSR HERR 

MUVUH 2,2 

JSR 4,2 

JSR .*1 

«0V 3,1 

MUVL« 1.1. SZC 

EHRUR 

JSR fierr 

LUOh- 

J5R HCfZ.ll 

ISZ PASS 

LLA o.PASS 

LDA 1,K7 

LuA 3,ieG(,S 

»nO« 0,1, SZR 

JMP FNOtl 

CALL 

JSR FICAL 

MtSS 

PnES 



(ENTERING A NER TESI 
ITEST That index nITH 



[SIGN BIT SET DUES 

(NOT LOAD INTU PC ON JSR. 



(GO TO NEXT LOCATION 

(JSK SHOULD NEVER 
(STORE THE SIGN BIT, 



(END OF TEST 



LL» 
LUA 

MUV 
TSZ 
JHP 
LUA 
LDA 
STA 
JMP 
SUP 
STA 
ISZ 
JMP 

CALL 
JSR 
MOVE- 
CALL 
JSR 
MESS 
OUSEO 
JMP 



ItGG 

19,3 

1,SZ 

3 

DEI 

3,3 

«.3 

•2,2 

2 

1 

HANG 



(CLEAN AC1 



,3 

IMuVE 



HCAL 



(CLEAN KANOOM LOOP COUNTER 



(PRINT MESSAGE THAT TESTS ARE RUNNING OU 



•ISLO» (RESTART PROGRAM 



10072 ak: 


ITH 






y > 1 


V2323 


102460 


,MPYU! 


SuHC 0,0 


M 


02324 


0544J) 


.nPYA! 


S(A 3,.CB03 


:*4 


02325 


34 411 




LUA 3,,CB20 


na 


02326 


l?52o3 


.CBS.9: 


MUVh 1,1, SNC 


ID 


02327 


101201 




MUVR 0,0, SKP 


ri 


02336. 


143220 




ADO*R 2,0 


Jib 


02331 


175404 




INC 3, 3, SZR 


oil 


02332 


000/74 




JMP .LBB9 


It 


02333 


125200 




MUVCR 1,1 


11 


02334 


002401 




JMP #,CBPJ 


\£ 


02335 


000000 


.CB03I 





13 


02330 


177760 


.CB20! 


-20 


14 










15 


o?3?7 


1C24O0 


.DIvl: 


SUB 0,0 


16 


0234tJ 


054775 


.ul vu: 


STA 3,.CB03 


17 


02341 


034775 




LUA 3,.CB20 


U 


112342 


125120 




MuViL 1,1 


IB 


02343 


101100 


.LCs»: 


MOVL 0,0 


iii 


02344 


142412 




SUB* 2,0, SZC 


21 


142345 


142400 




SUB 2,0 


22 


02346 


125100 




HOVL 1,1 


23 


B2347 


175404 




INC 3.3.SZR 


24 


02350 


0PO773 




JMP ,CC»* 


25 


02351 


002764 




JMP F.C603 


2e 










27 


02352 


135000 


xORi 


MUV 1,3 


26 


02353 


117520 




ANDZL 0,3 


2H 


02354 


10/000 




kUO 0,1 


3fc 


02355 


166400 




SUB 3,1 


31 








RETURN 


32 

3j 
34 


02356 


002117 




JMP #CALRtT 










35 


0235/ 


13500? 


xuhi: 


MUV 1,3 


36 


02360 


117400 




AND 0,3 


37 


o?361 


174000 




CUM 3,3 


30 


02362 


163400 




AND 3,0 


3y 


02363 


123000 




AOD 1,0 


40 


02364 


16340? 




AND 3,0 


41 








RETURN 


42 


02365 


k-02117 




JMP 0CALRET 


43 










44 










45 


02366 


034U4 


X0H2: 


LUA 3,M2« 


40 


02367 


054434 




STA 3.X0RTEM 


47 


02370 


115000 




muv 0,3 


4H 


02371 


137200 




4UDK 1,3 


4 Si 


02372 


151200 




MUVH 2,2 


50 


42373 


101220 




MOVZR 0,0 


51 


02374 


125201" 




MOVR 1,1 


52 


02370 


1032e0 




ADOK 0,0 


53 


32376 


010425 




ISZ XURTEM 


54 


o2377 


000771 




JMP X0R2*2 


5b 








RtTbRN 


50 


02400 


OP2117 




JmP FCALRET 



(C[AC1)*C(AC2) 

(RESULT IN AC0.AC1. 
(SEE SYSTEM REFFEKANCE 
(MANUAL FOR FURTHER 
(INFORMATION, 



(CCAC0),CIAC1)/C(AC2), 
(ACB'NEMAINOER 

(ACl'UUOTIENT 

(SEE SYSTEM REFFERANCE 

(MANUAL, 



(EXCLUSIVE OR C(AC«),CCAC1), 
(RESULT IS IN C(ACI). 



(EXCLUSIVE OR C CAC8) ,C tACl ) , 
(RESULT IS IN C(ACB) , 



(EXCLUSIVE OR C CACB) ,C (AC1 ) , 
(RESULT IN CCAC2). 
(THE CONTENTS OF ACO ANO 
(AC1 ARE EXCHANGED, 



10073 AK1TH 
02 



024CI2 13bl2l> 



Ob 

0b 
3B 
lb 
11 
U 
13 
14 
lb 
lb 
17 
18 
1* 
2i) 
El 

22 

S3 

24 
2b 

2b 
27 
26 
2b 
3W 
31 
32 
33 
34 
3b 
3b 
37 
3B 
36 
4 t , 
41 
42 
43 
44 

4b 

46 
47 

4b 
4i/ 

r>0 



024P3 122423 
O2404 167»o1 
0240b 121221 
02406 00077!* 

B24B7 002117 



U2410 17b40|! 

624H afS44H. 

02412 1620211 

02413 00040!) 

02414 01;»4o« 
0241b tll«4«ti 
0241b 03441411 
•12417 0Plo77.!i 
«'2420 1H!«i» 

1)2421 «" P> a 1 1 :» 



SuBZL 1,1 
MOVZL 1,3 

suez i,a,szc 

AOD 3,1,SKP 
*OVZR 1,7,,S*P 
JMP ,-3 

RETURN 

JMP #CALRET 



Sua 3,3 

S1A 3.S0TEM 

AOC* 3,19, 5HC 

JmP 90! 

ISZ SiiTtM 

ISZ SUTfcM 

LUA 3.SUTEM 

JMP .-5 

MOVk o,U 

RETURN 

JMP »CALHET 



(FIND SO HOOT OF i;(ACB). 
(SEE TMt SYSTEM RfcFFERANCfc 
(MANUAL. 
RESULT IN ACM. 
(AC! DESTROYED. 



IFIND SU HOOT OF CtACIa). 

(same result as previous 
(test but code is 
(oiffirem. 



(RESULT WILL bE IN ACB. 



02422 o0000t" Suit*: (" 

02423 E ei »; 71 id [■ XURIEn: 

1'iitiimiiiuiitiiiiniiniiH/uiuitiiiiiiitii/uuitmnii 

1 INTtRUPT MANOlEK ROUTINE 

(»o«o«o<i<>o«»ooooooo»«(»(>a»b»«»»oe»»o»6«»»o<i«<i«(>oo«<>»o»<)«o»o«»»o«» 



812424 
0242b 

02426 
02427 

0243o 
U2431 
02432 
02433 
02434 
o243b 
02436 
B2437 
0244o 
112441 
112442 
02443 
0244 4 
0?44b 
u244b 



O63610 
00041b 
054072 
0t»60bJ 
^4 00 7 3 
2 o 7 4 
1 16415 
(5 4 o S 
020073 
034P72 
«|S«177 
002000 
034072 
002071 
O0b064 
4*4123 
063477 
k.0bo70 
■3 f- - 2 1 11 



INln: 



I nth I : 
INTH21 



SftPuN 

JMP 

ST A 

JSR 

SU 

LUA 

SUB* 

JMP 

LUA 

LUA 

iNTtN 

JMP 

LUA 

JMP 

JSK 

ILI! 

I»T» 

ISK 

JnP 



TTI 

INTH2 

3.INT43 

•IINP? 

91, iNTaH 

0,CO 

0,3,SNR 

INTH1 

0,INT58 

3, INTS3 

»0 

3.INTS3 

•10DT? 

»IMt.S7S 

! 

•IZOCJT 
• t.GUS*4 



(«AS TELETYPE INTERUPTING 

(ENABLE INTtRUPTS AND CONTINUE 

(SAVE AC3 

(i,0 MANULt TELETYPE 

(SAVE ALB 

(GET A CONTROL U 

(SEt IF CONTROL 

(1.0 TU UOI 

(RESTORE AC0 

(RESTORE AC3 
(ENABLE INTERUT3 

(KFIUNN TU PROGRAM 

(HESTURt a:3 

(60 TO JOT KOUTINt 
(KEPOmT lLLEAI.Lt UtERUPT 

(GtT DEVICES * 
(FR1NT THE DEVICES • 
(RElUfN TO MONOTOR 



10074 AKI r« 

n 



tit 



I1HIS ROUTINE 
(KELOCATEU TO 



lb 02447 o54I 17 CAL: 

16 o24bo ubtl2H 

07 02451 03«122 

It 1)2452 «1361 17 

ok 02493 BU.117 

It. B24S4 157?ol« 

11 ii24Sb »3fl2C 

12 B245b nb414H 

13 »i245/ V34117 

14 t<24eti ee)2l47 
lb IH2461 V7.SA76 

lb move: 

17 «'24f2 mbl»3 
lb H2463 Bli«lb3 

15 H2464 /.H^4n2 
?u 

21 0246b «H2li?l 

22 »2466 11 li?2H MUVE61 

23 tl?467 024123 

24 (12472 132423 
3b H2471 133PI*1 
2b H2472 U»ii77b 
27 

2b c2473 ibbi'sj" MUVEl: 

2C ^2474 «i?413i , i 

3k' i)2473 U4<*].24 

31 n247b 137HHH 

32 U2477 020141 

33 o2b0«i 116512 

34 02b01 l)«07bl 
3b 

3b n2bC2 02011b M0VE2I 

1/ «2b0o «2411S 

At H2b?4 044Pi»pi MUVE3: 

SB tsiini 0l4d2l> 

Alf. u2blb 054021 

41 o2bCi/ P14021 

4f o2b1w ,,?2i'2P 

43 ti?sn „42H21 

44 02012 0K124 
4b i.i?bl3 iil»t.775 
46 H2bl4 J004^1 
47 

48 

4), i)2blo 13&40C* MUVE5! 

50 02b 16 1710OK 

•il W2bl7 050122 

53 02b2i; ^*Pb^7b 

54 02S21 O0oPol 
55 

56 H2522 054125 RANUJ 

37 H2523 034143 

5b 02b24 17b?24 

5« U2525 000413 

6.' i-2b2b 0044)6 



S7A 3.CALRET 
STA 2,CAL2 
LUA 2.REL0C 
LUA 3,#CALRtT 
IbZ CALRET 
AUO 2,3 
LUA 2,CAL2 
STA 3.CALTEH 
LUA 3.CALRE1 
JhP #CALT6« 
JSR #ICAT 
RANOOh 

JSR »IRANO 
Ia2 RANCT 
JUP M0VE6 

JMP »ISLO« 
MOVZR SI, 2 
LUA l.MSIZE 
SUBZ 1,2,SNC 
ADD 1,2, SUP 
JMP .-2 

MOV 2,3 
LDA 1.P5WE 
STA 1,M0VTEM 
AUO 1,3 
LUA e.KCNO 
SUBL« P,3,SZC 
JhP MOVE 

LUA 0,ShIEH 
LUA l,SLn« 
STA i,gai 
OSZ 20 
STA 3,21 
DSZ 21 
LUA PI, #20 
STA ?,»21 
IbZ MUVTEM 
JMP .-3 
JMP MOVtS 



IS USED TO CALL A SUBROUTINE THAT HAS BEEN 
SOMEPLACE ELSE IN MEMORY 



("CALL" SUBROUTINE AT 

MDURESS... 

(THIS ROUTINE KILL FIND 

(TMt CALLED SUBROUTINE. 

(LCAC3J URL CONTAIN THE 

(RETURN, RETURN VIA 

( (JMP MALRET) IS ALSO 

(H05SIABLE. 

(EXIT TO SUBROUTINE. 

(RELOCATE THIS PROGRAM 

(INCREMENT RANDOM LOOP COUNTTER 
(COuNTINUE HE ARE NOT 
(HUNS UP IN RANOOM SEARCH 
(RESTART PROGRAM «E CANIT RELOCATED 
(AL«)« RANOOM LOCATION 
(CCHSIZEHTOP OF USEABLE MEMORY. 

(CCAC2) RILL BE RITHIN THE RANGE 
(OF e TO TOP OF MEMORY. 

(CAC2-AC3)«TRIAL TOP AND 
(BOTTEM OF PROGRAM DESTINATION, 
(C(MOVTEM}>NUMBER OF ROROS 
(IN THE PROGRAM. 
(IF DESTINATION BOTTEM IS 
(*LAST, GET ANOTHER NUMBER. 



(AC2-1 ■ LOCATION OF THE 

(PROGRAM NOR... 

(DESTINATION ADDRESS « SOURCE 

(ADDRESS, 

(CC2H)»B0TTEM OF SOURCE, 

(CC21)»B0TTEM OF DESTINATION. 

(MOVE THE PROGRAM FROM 

(HOTTfcM TO TOP. 



Sub 1,3 

MOV 3,2 

StA 2.REL0C 

CALL 

JSN dlCAL 

FIRST*! 

SIA 3,RANRE1 
l.UA 3,FS«IT 
MOVZ 3,3, SZk 
JMP RANul 
J.1k ,h»NO 



(PROGRAM IS MOVED. 



(AC3«0IFFIRtNCE BETWEEN 
(DIFFIRENCE IS USED TO 
(ADJUST RELOCATION. 
(RESTART THE PROGRAM, 



(1HL lANDOM NUMBER. 



00/5 AkITh 

M 02527 «.0H14b 

i ?53*> 04J145 

02531 K04413 

U2532 ('8.1145 

02533 024146 

02534 I3u70!< 
152535 112IV0 
«254t> i. 50147 
02537 002125 



02540 02014S RandI I 

1)2541 024146 
11 02542 dill/ 
14 02543 HP<kj7? 3 

la 



<J AC 1 

ST* 0.OAC.0 
JSR .RAND 
OACo 

LUA l.QACI 
NtGS 1.2 
ADC 0,2 
SU 2.DAC2 
JKP 4RANRET 

LU* K , 04UM 
1H liOACl 
LuA 2.0AC2 
JMP RANul-2 



10 






17 






IB 






t W 






20 






21 






22 






84 






24 






2!) 






26 






37 






26 






2* 






30 






31 






32 






44 






34 






36 






36 






47 






56 






4B 






4U 






41 






42 






44 






44 






45 






46 






47 






4B 


02544 


054157 


48 


02546 


010157 


50 


192546 


«144I65 


51 


02547 


05rtl 56 


92 


02550 


fc3l4«i! 


54 


142551 


021000 


54 


02552 


04407 


56 


142553 


ID34161 


36 


U2554 


1630B0 


57 


02555 


041000 


5B 


102556 


024155 


5K 


02557 


030156 


SB 


02560 


882167 



I RANuOM NUMBER GENERATOR 

I GtNERATtS 4 CR9EU00) RANDOM SEQUENCE UF INTEGERS 

I IN TMt RANGE 0" N «■ 2*«16-1 

I INPbTl ADDRESS OF OLD VALUE POINTED TO 8T HORD 
I AFTER JSR 



16-oIT NE« RANDOM NUMBER IN ACM 
AND In STORAGE REPLACING OLD VALUE 



CALLING SEQUENCt: 

J»R ,RANU 
ADDRESS OF OLU VALUE 
RETURN 



METnODI 



GENERATES A LINEAR CONGRUENTIAL 
SEQUENCE OF THE FORMI 

«CN*1) « UlN)«A*C)MOD 2««16 

IF A K-BIT RANDUM NUMBER (AS OPPOSED 

TO A 16- BIT NUMBER) IS NEEDED, 

USE THE MUST SIGNIFIGANT 

K.BITS CTME LEAST S1GMFIGANT K-8iTS 

ARE NOT AS RANDOM), 

FOR EXAMPLE. 10 OBTAIN RANDOM N MOD 2, 

USE THE SIGN BIT OF TME RESULT 



UNCHANGED! 
DESTROVEDI 



»C1, 
ACB, 



AC2 
ACJ, 



CARRY 



SI A 


3,.U0I»3 


ISZ 


,UD«3 


S1A 


1, .UDB1 


ST* 


2,.UD02 


LDA 


2,0.8 


LU* 


*,a,2 


JSR 


.UD5H 


LDA 


3, ,UD20 


AUD 


3,e 


STA 


0,0.2 


LUA 


1 . .UD01 


LU* 


2, .UO02 


JnP 


#,UD*3 



I SAVt RETURN 

| BUMP PAST ADDRESS CONSTANT 

I oSAVE AC1 

I «SAVE AC2 

I GET ADDRESS OF OLD VALUE 

I OLD VALUE TO AC0 

| NoA 

I GET INCREMENT, C 

I (N«A«C) MOD 2««16 

I STORE II 

I 4RESTURE AC1 

I •RESTORE AC2 

I RETURN 



ne76 ARl 


;ih 


("1 






-12 






03 






3 4 


02561 


«!241t>2 


«a 


02562 


^441b0 


ft 


02564 


IPblSK 


37 


02564 


125120 


06 


02565 


H14160 


*9 


4.256D 


tfA0776 


118 


02567 


107000 


1 1 


02670 


125120 


12 


H2671 


125121" 


13 


02672 


124BY0 


14 


H2674 


t'CHMP 


15 






16 






17 






IB 







I CUMPUTt N.t2«»l 1»2««2«1) 
.UD50! 



LUA 1..U021 

sta i,.unii? 

MOVZL 0,1 
"UViL 1.1 
DSZ .UO10 
JMP .-? 
ADD 0,1 
MOVZL 1,1 
MOVZL 1,1 
ADD 1,0 
JMP 0,3 



GET CDUNT, * 
FOR ITERATION 
N*2««(X*1) 



?**2* CN«2««CX«1) »N) 
N*N«2*«2*N«2««CX*3) 



H'077 ARITH 

32 

3 

*4 

16 

at 

17 

06 
08 

in 

11 

12 
13 
14 

13 
16 
17 
18 

IS 

a? 

21 

32 

23 

25 
36 
27 
2B 

a* 
it 

31 

32 

3j 

34 

35 

36 

37 

36 

3i 

40 

«1 

42 

43 

44 

45 

46 

47 

4S 

48 

5e U2574 034612 

61 02575 064163 

52 02376 P34511 

63 02577 054511 

64 026P0 17646P 
66 026F1 P54510 

56 K26»2 B5451(> 

57 02603 OH2503 



.TITL 0U 
(FILENAME! 



MH1S PACKAGE IS USED TO SETUP THS SUbTESTS FOR THE PHOr.Bms 
.TH.T RUN ON NOVA, ECLIPSE AND HICNUNOvI TYPE COHfUteS" 



("ENT7R" EN1SY IS USEO TO BEGI 
("CYC7E" ENTRY IS USEO TO END 
("ERR?" E«THY IS USEO ON SEElN 
IUF A TEST IS SEEN A MESSAGE I 
ICAN BE OBTAlNEu BY SETTING Bl 

; 

InOTEI THIS PACKAGE REQUIRES 
UN ORDER TU RUN, IT ALSO NEED 
(PAGE ZERUI 



/AT LOC 201 
(AT LOC 203 
I ALSO 

) 

I 
( 
I 
I 
I 
I 
I 
I 
I 
I 



HELPI t 

passi e 

AC37I 

SwREGl CI 

I1NPT1 INP7J 

OR 
INP7I 

ICRL7FI CRL7F 

IPDC76I PDC7S 

IPOCTT! PUC7T 

IZ0C7T! Z0C7T 

IENT7RI ENT7R 

ICYC7EI CYC7E 

IERK71 ERR7 



N A NEW TE81. 

A TEST. 

G AN ERROR. WHEN THE FIRST ERROR 

S OUTPUT. THE PRECENT ERROR RATE 

T 3 OF 8WREG. 

THE T1YI0 AND SHPAK PAKAGES 
S THE FOLLOWING VARIABLES IN 



TEST 5TARTING ADDRESS 
PROGRAM PASS COUNTER 
STORAGE FOR AC3 
NEEOEO BY SwPAK 
POINTERS 
TO 

TTYIO 

PACKAGE 

ROUTINES 

POINTERS TO ROUTINES IN 
THIS PACKAGE 



(THE ENTTR ROUTINE STARTS EACH SUBTEST BY STORING ITS 
/STARTING ADDRESS In PAGE ZERO, SETTING ITS ITERATION 
(COUNTER (ON THE FIRST PASS OF THE PROGRAM THE ITERATION 
(COUNTER IS ALWAYS FORCED TO 1). ENT7R THEN CLEARS 
(THE ERROR COUNT AND STARTS THE TEST. 



ITHE CALL TO ENT7R MUST BE FOLLOWED BY 
MHE ITERATION COUNT FOR THIS TEST. 



A WORD CONTAINING 



•1ENT7R 



/THIS WILL START A TEST WITH ITS ITERATION COUNT SET TO 18 
IIENT7R IS A PAGE ZERO POINTER TO ENT7R 



ENT7RI 



51 A 


3.L007R 


STA 


3, HELP 


LL>* 


3.ITR? 


STA 


3,ITR?T 


SUBC 


3,3 


STA 


3,ITR7R 


STA 


3.ITR7C 


JMP 


•L0U7R 



/STORE IN RETURN LOCATION 
(STORE IN PAGE ZERO 
(LOAD IT 

iset test iteration counter 

;lleah error switch 
(clear error counter 

lEXIT TO TE5T 



UJI7S AKITH 

31 

02 

33 

n* 

43 

36 

07 

36 

39 
10 



(THE C'fC?E ROUTINE IS USEO T 

ITHt ITERATION UF THE SUBTES 

I* ERROR RATE IF BIT 3 UF S« 

I 

lIHt L»LL TO CVL7E IS! 



I 
I 
r WHERE 



JSR 



11 K26P4 B54SE7 CYC7E: 

12 02603 014503 

13 viWa Ki»25oa 

14 O2607 o345»2 
16 U2610 175PC5 

16 02611 of)25t;2 

17 02612 034475 
16 02blJ «54475 
Ik 02614 v.34112 
2«s H2615 J77100 

21 "12616 177103 

22 fc2617 ootl424 

23 »262o 040474 

24 02621 ,144474 
26 02622 o50474 

26 1)262.) 1025o3 

27 U2624 :14G473 

28 K2026 0P6t»62 
28 02626 1C24O0 
38 192627 324463 

31 02O3B oio472 

32 02631 00444? 

33 02632 030435 

34 t,2633 004424 

35 02634 r«>6065 

36 ,12635 000045 

37 02636 u2«461 

38 I..2637 1012013 
3k 02640 020454 
4F io264l 024454 

41 02642 030454 

42 U2643 176400 CYC72: 

43 02644 B5A4A6 

44 02646 03«4«4 
46 02646 J75H04 

46 02647 b34U2 

47 02650 177H3 
4b 02661 0P2435 
49 02652 k'02441 
b * IAC1»REm 

51 0265.3 lt»24ot» DIV7I 

52 t>2654 054444 DIV78I: 

53 0P6S3 142432 
34 fc?656 /0041J 
56 02657 034441 D1V701 

56 lu?DSlc e3«443 

57 02661 125l2i' 
56 02662 l(*U£o M0VV2: 
59 02663 142412 
*)0 02664 1424 0/ 



ICYC7E 


IS A PAGE ZERO 


Sl» 


3,LOP7ET 


DSZ 


ITR7T 


JMP 


»L0U7R 


LOA 


3.ITH7R 


MLV 


3,3,SNR 


JMP 


#LOPTET 


LDA 


3 , IT R7 


STA 


3,ITR7T 


LP » 


3.SI.REG 


AUOL 


3,3 


ADOL 


3,3, SNC 


JMP 


CYC72 


STA 


P,ACPT 


STA 


1 , AC 17 


STA 


2, AC27 


SUHCL 


e,9 


ST1 


«,CAR7 


JSR 


•ICRL7F 


SUB 


e,B 


LDA 


I.ITR7C 


LU4 


t.KMIt 


JSR 


MUL7 


LUA 


2,ITR7 


JSR 


DIY70 


JSR 

"* 

LUA 


HPDC7S 


H.CAR7 


MUVR 


0,0 


LUA 


«,AC»7 


LOA 


l.*C17 


LDA 


2.AC27 


SUH 


3,3 


STA 


3,ITR7C 


LUA 


3,ITR7R 


MdV 


3,3,SZR 


LUA 


3,SwREG 


AuDL* 


3, 3, SNC 


JMP 


»L0U7R 


JMP 


PL0P7ET 


ACP« 


(AC0,AC1)/AC2 


SUB 


0,0 


STA 


3, MOV 75 


SUBZ* 


2,«,SZC 


JMP 


MUV73 


ST» 


3.MDV7S 


LUA 


3,MUV71 


"CiVZL 


1,1 


"UVL 


e,o 


5ut)» 


2,P,SIL 


SUB 


9,» 



ENO A SUBTEST IT HANDLES 
T AND THE PRINTING OF THE 
REG IS SET. 



»ICYC»E 

POINTER TO CYC7E 

(STORE THE ENO OF TEST ADDRESS 
(ALL ITERATIONS 0UNE7 
(NO, LOOP AGAIN 

(ANY ERRORS? 

(NO GO TO NEXT TEST 

(TES RESET THE ITERATION COUNTER 



IIS BIT 3 SET? 

(NO EXIT 

(TES PRINT XERROR RATE 

»SAVE THE WORLD 



(PRINT CARRAGE RETURN 

(PRINT FAILURE RATE 
(RESTORE THE NORLU 

(RESET THE ERROR COUNTER 



(LOOP ON ERROR? 
(YES 

(NO 



(OIVIUE 



P079 AWITH 








91 «?66b lssine 




HUVL 


1.1 


fd 0266b 175404 




INC 


3,3,SZR 


«3 H2667 0P0773 




JMP 


l«0V72 


Ml 0267i» 170441 




SUBC 


3,3,SKP 


»5 B2671 t 7642C 


MUV73: 


SU<U 


3,3 


Hb B2672 VI72426 




JMP 


PMDV75 



t; P t, Pi iff B 
i/l C* f , c y P 



; cacci, Acn»ACi*AC2 



ae 42673 ic«24bc? muly: 



«,a 



i t*CB,Acn«4ct*AC2**c« 



IP 


t2b74 


^54424 


MUL7A: 


STA 


3.MUV75 


11 


22673 


H344J6 




Lu» 


3,HUV?1 


12 


0267b 


12S2US 


MBV74S 


MOVK 


1,1, SNC 


13 


02677 


1012U1 




nuvR 


B.H.SuP 


14 


U27BB 


14322?! 




ADOZh 


2,i" 


15 


B27»>1 


1754B4 




INC 


3.3.SZR 


16 


027D2 


000774 




JMP 


M0V74 


17 


027A3 


12&260 




MUVCR 


1.1 


lb 


027P4 


0B2414 




JMP 


#NDV?b 



Ueef 4K1TM 

"1 »27?b B0^3i<6 

H27C6 

,>27*7 

027 ID 

02/11 

U2712 

12713 

t'2714 

i)2716 

02716 

H2717 

U2720 

02721 

02722 

02723 

02724 



ft 1 R i n : 

LOOTPI 

ITH71 

ITR7T : 

I1R7R: 

ITR7C: 



eiHtvi LUP7FT: 

^p»iphB ach?: 



0P*)t*B? 
0P0f>0(? 

i^pitfl 44 
17776B 

*iAK)P<* 



ACl?: 
AC27: 
CAR?: 
MDV75I 

.rT7n: 

K1P7B: 
M0V71: 
C1S76: 



n a 

..14 

as 

46 
H7 

*e 

(I Si 
It) 
1 1 
12 
13 
14 
It 
It 
17 
16 
IS) 
20 
21 
22 
23 
24 
2b 
26 
2? 
26 
2b 
30 
41 
32 
33 
34 
3b 
3b 
37 
36 
ii 
41 
41 
42 
43 
44 

45 0272b U54774 EKR7! 

46 02726 Ml 4764 

47 B2727 4Pt)4iM 
H4U764 
044764 
U5«l7b4 
102560 
041)763 
4J34764 
17bK»4 
^■Pw4b2 



R1RN 

£ 

IVV, 

SI 

n 
? 
f 



1DB. 

-2P1 

KBlBHl! 



(IHt ERR? ROUTINE IS USED IN CASES WHEN 4 SUBTEST FAILS 

ITK1S RUUlINf KEEPS A COUNT OF THt NUMBER OF TIMES 

(THE TEST FAILED AND FOR THE FIRS1 ERROR IN A TEST IT MILL 

(PRINT T Mt CONTtNTS OF THE ACCUMULATORS, THE CARRY 

IANU THE PROGRAM COUNTER. THE PROSRAM THEN DOES ONE OF THREE 

(THINGS DEPENDING ON THE SIT SETINGS OF SuREG IT MILL 

(PRINT A MESSAGE SAYING IT HALTED AND STOP EXECUTION, 

(PRINT A MESSAGE SATING IT IS LOOPING ON THE ERROR AND RESTART 

iTHt TEST OR IT HILL CONTINUE TO THE NEXT TEST PRINTING NO 

IMESSAGE. IF BIT 6 OF SHREG IS SET THE ROUTINE MILL HALT ON 

(ANY ERROR ENCOUNTERED. 

I 

(THE CALL TO ERR7 SHOULO BE EXECUTED ONLY IF THE SUBTEST 

(FAILS ANL SHUULD BE PRECEEDED BY AN INSTRUCTION MHICH STORES 

IAC3 IN A PAGE ZERO LOCATION "ACS?" IF THIS IS NOT DONE THE 

(PRINTOUT FUR ACS RILL BE ERRONEOUS. 

( 



(AN EXAMPLE OF THE CALL IS: 

» 

( XXX 

( JPlP ,»2 

( JMP ,♦» 

( S1A 3.AC37 

( JSR PIERR7 

I 

(HHESfc IEKP7 IS A PAGE ZERO POINTER TO ERR7 



(INST SKPS IF TEST PASSED 
(TEST FAILED 
(TEST PASSED 
(STORE ACS IN AC3? 



lr-3730 

02731 
02732 

i«273J 
H2734 
«/273b 
H273b 
02737 

02740 KKSP64 

02741 0P3H2P 
07742 »247a5 
02743 0F6070 
,12744 i247b? 



STA 
ISZ 

JMP 

STA 

STA 

STA 

SUBCL 

SI A 

LUA 

rtOV 

Jt-P 

JSR 

HtA7DR 

LUA 

JS« 

LUA 



3..RT1N 

ITR7C 

.♦1 

*, ac«? 

1.AC1T 
2,AC2? 

«,« 

B.CAR7 
3.ITR7R 
3,9,SZR 
ERR73 

HMES7S 

I. CART 

»IZUCTT 

1 , AC«7 



(SAVE RETURN ADDRESS 
(INCREMENT ERROR COUNT 
(NO OP 
(SAVE THE MORLO 



(IS THIS THE FIRST ERROR 
(YES SKIP 
(NO RETURN 



(PRINT THt AC'S, CARRY ANO PC 



(CUM AKIIH 
*\ 12745 »nbt"66 
12 «)2746 U24747 
«3 ft2747 «i»6f»e6 
''4 «<27S*! <»?4746 
'15 «<275l «t»6C66 

at U2752 ^24155 
a? H2753 KHoBbe 
"* U2754 e24745 
39 182755 1944734 
1«! in?75b viTtmat 

11 B2757 32H742 

12 «276t, K34045 

13 B2761 B2D4B? 

14 M2762 125PM 

15 n?763 »S"272? 
lb U2764 034112 
17 D2765 U3SI737 
IS 02766 1574B«i 
U U2767 t?4733l 

20 02/71? l?5?tftt 

21 l»2/7l ti2^723 

22 «2772 .624723 

23 U2773 1*3.1723 

24 i«2774 175Pt>4 

25 H2775 *l»n4D7 

26 H2770 B34H2 EKR72I 

27 W2777 17713? 
26 tf3«ft: PP2721 

29 k53b^1 0(*b^o4 
itc xivT.i vineim 

31 ki3»kJ <Sif27lR 

32 H3ef«4 PP&P64 EKR71J 
3,1 *3lJl»5 n«<.5t*53 

34 «i3^fi6 K6JH77 

35 tf 3 tf f 7 v 3 4 1 1 ? 
3fc u3k10 fc(*P766 

37 *3S!11 W34112 EKR73: 

30 H3K12 »3«)7l2 
3b t)3»13 1574»e 
4li ri3tfl4 H3K.7B2 

41 H3»15 1751*114 

42 D3alb H6J077 

43 *3wl7 0P27K2 



JSR 


HP0C7T 


LU4 


l.*Cl? 


JSR 


•IP0C7T 


Lb* 


1,»C2? 


JS» 


•IP0C7T 


LUA 


1.4C37 


JSR 


P1P0C7T 


LU4 


1..HT7N 


ST* 


I.ITR7R 


J5W 


•1PUC7T 


LU* 


H..RT7N 


LU* 


3.IEGG5 


Lu* 


1.0.3 


HUV 


1,1, SZR 


JMP 


PRTR7N 


LU* 


J.StuREG 


Lu» 


2.C187B 


«w 


2.3 


LU* 


1,C*R? 


MUVH 


1.1 


Ll>* 


f,»ea? 


LU* 


l.»C17 


Lu» 


2.4C27 


Myv 


3, 3, SZR 


JMP 


EHR71 


LU* 


3,S*RkG 


»U02L« 


3.3.S2C 


JMP 


».RT7N 


JSR 


»I«tS?S 


LU07T 




JMP 


».RT?N 


JSP 


•IMES7S 


SIPJP 




H*Lt 




LU* 


3,S«REG 


JMP 


ERH72 


LU* 


3,S«»tK 


LU* 


2.C1B76 


*NC 


2.3 


LU* 


2.*C27 


MUV 


3, 3, SZR 


H«L1 




JMP 


».R|7n 



I5ET ERROR SWITCH 



IRESTORE THt RORLU 



(M»LT U* ERROR? NO SHIP 
fYES GOTO H»LT ROUTINE 

ILOCIP ON ERROR? 

INO RETURN 

IYES S»Y SO AND RtTuRN 



IPRINT M*LTEO SNO STOP 



IRESTORE ACS HITH SHREG 
(CONTINUE FROM THE ERrtOR MALT 
IMAtT ON ERROR? 



(YES STOP EXECUTION 
INO RETURN TO TEST 



iBPIB? AkITH 

"I rf3tf?i? DB52i!S HtA70R! 
*2 <,P5215 

33 uJH'22 1*1615 CRY 
■054722 
44'' 41 1 
»3<S3U3 
«4»!41 1 
13^7»'3 

«i4.)*H 

1S1.3H3 

Mr/411 

D3l7u3 

»>5iU - l 1 

I2*3u3 

B""S?1S 

rv i'ilb 

(1)5215 LU07T: 

147714 

05^317 

k'4/311 

12«.1H7 

047317 

142640 

15132? 

151317 

B85215 



Jo 
3b 

AJ 
KB 
J»» 
lfc 
11 
11 
13 
14 
15 

lb 

17 »i3f4 

lb 

Ik 

2r 
21 
22 
23 
24 
25 

3b 
27 



•TXTE 1«15»«12>«15>«12><15> 



PC «15»«12>«15»J 



•TXTE l«16»«12>L00PINtt ON ERR0R«15><t2>l 



2B ^3li5J «(«5213 ST07P! 



3fc 
31 
32 
33 
34 
35 
36 
37 



»j4tfSl*! 
152314 
K1423K5 
147645P 
12X110 
1513D6 
147722 
1"6722 
*>Myii>i2 



.TX1E 1«15>«12»HALTE0 ON ERR0R«15><12»1 



31 



stb 
Jib 

*/ 

-tb 
^S. 
IV 

11 

12 
13 
14 
15 

10 

17 
IB 

la 

2* 
21 
22 

as 

24 
25 
26 
27 
2B 
2s, 
Jit 
31 
32 
33 
34 
3b 
36 
37 
3b 
39 
4P 
41 
42 
43 

44 
4b 



(FILENAME«TTY10 

TELETYPE NON INTERRUPT PACKAGE 
CAKR» ,ACt',ACl ,»C2 SAVED 

"MfcS/S" PRINTS ASCII MESSAGF.S AS SPECIFIED BY ASSEMBLER 

"CKLVF" PRINTS A CARRIAGt RETURN 



"PUC?T" PRINTS Ctl) 
"ZUC7T" PRINTS Cll) 
"PBE7C" PRINTS ClU 



IN OCTAL 

IN OCTAL, LEADING ZEROS SUPPRESSED 

IN DECIHAL. LEADING ZEROS SUPPRESSED, 

THE ABUVt THREE ARE FOLLOREO BY A TAB 

"PUC7S" PRINTS Cll) IN DECIHAL, LEADING ZEROS SUPPRESSED, 

FOLLUNED BY THt CHARACTER STORED AT CALLIN6 LOCATION *1. 

PRDGHAM RE1URNS TO CALLING LOCATION *2 , 

"TIN70" ACLEPTS 0C1AL, AnD 

"T1N7D" ACCEPTS DECIMAL SINGLE PRECISION SIGNED INTEGERS 

INTO AC1 FROn THE TTI, LEAOINS NULLS, TABS, 

AND SPACES ARE IGNORED, A IS BIT UNSIGNED INTEGtR IS 

FORMEn, THEN NEGATEO IF A MINUS SIGN 15 TYPED. 

EXIT AT CALLfl IF INPUT ERROR KITH AC»«6AO CHARACTER. 

CNOT A LEGAL DIGIT OR TERMINATING CHARACTER) 
EXIT AT CALL*2 UPON TERHINATING CHARACTER 

RITH ACt»*k>, 0, 48, 12, IS, bS 

FOR NULL, SPACE, LINE-FEED, CARRIAGE RETURN, COMMA 
THE ABOVE WAIT FOR TTO DONE, THEN TTO IS CLEARED. 
KUBOUT *ILL DELETE THE LAST DIGIT TYPED IN ITIN?U' AND 
lTIN?n> 

"CHC?T" PRINTS ASCII CHARACTER In CC0JR) C(8)L MUST BE 0. 
EXITS L»LL »2 IF Ct0)R«0l SIMULATES TAB 

"TYP7E" PRINTS C(Vl)R TO THE TTO OR LPT OR BOTH AS PER THE 
SR1TCH SELECTION REGISTER 'S.RfcG'. 
EXITS AT CALL*1. REPLACE "TYPtE" RITH 
INTERRUPT 'TYPJEl IF DESIRED. 

("TPS7P" PRINTS A SPACE AND EXITS AT CALL*1 "ITH AC0 « 40 



U 084 AKITh 










* 1 




;mES?s 


ROOTINt 






34 

lib 




I THE CALLING SEUUtNCE ISI 








JSR 


•IMES7S 




»7 




1 


PUInTEP 


TO MESSAGE TO BE PRINTED 


lit 03t)6b 


e54S51 


MtSfSI 


STA 


3.RTN7A 


(SAVE THE RTN ADORESS 


11 «l3H6b 


/0U5b4 




JSR 


SAV7E 


(SAVE THE STATE OF MACHINE 


12 03C67 


«>34b47 




LUA 


3,RTN7A 


1 


13 0307.) 


«!1»!54S 




ISZ 


RTN7A 




14 i)3^71 


/314tfrt 




LUA 


2, a, 3 


rCC2) POINTS TO MESSAGE 


lb S?3fc'7i 


K.24417 




LLA 


1,P3777 


IA S BIT MASK 


lb B3H73 


S'ZlfBH 


"fcS7MI 


LDA 


a. a, 2 


)LU)"OATA aORO 


17 KI3U74 


1231 12 




MOVL* 


1,1, szc 




lb <l3»7b 


123701 




ANDS 


1,0, skp 




IB U3k)7t> 


1234411 




AND 


1,0, SKP 


(CC0)"DATA CHARACTOR RIGHT 


20 03»77 


151400 




InC 


2,2 


IINC TO NEXT RORD 


21 03100 


1240 00 




COM 


1,1 


(FLIP MASK 


22 P31P1 


,4 04414 




JSR 


CHC7T 


(PRINT 


23 <i31H2 


0H0771 




JHP 


HES7M 


(ANOTHER 


24 03103 


(iii<!4a2 




JMP 


.♦? 




2b aiiet 


0044U 


PLS7T: 


JSR 


CHC7T 




20 W31»b 


VPU555 


PEXJT: 


JSR 


RST7R 


(RESTORE THE STATE OP MACH 


27 iJ310t> 


52530 




JMP 


»rTnTA 


(EXIT 


2b 













ll'dB5 AH 
I 

ex 
aj 
a« 
45 

36 
a? 
9b 
*» 

it) naif? 

11 0311c 

12 03111 

13 03112 

14 eiin 

16 eiiH 

16 

17 H3U5 
IK 03116 
1U 61311/ 

20 0312k) 

21 K3121 

22 03122 

23 03123 
2' 

2b 03124 

26 IC312!) 

27 03126 

28 0312/ 
2» o313o 
3D 03131 

31 03132 

32 0313J 
33 

34 03134 
3b 19313!) 

36 03136 

37 rf3137 
3b 03140 
3» 

4f. 143141 

41 

42 



CHC7T Rf)uTINt 

THE CALLING SEQUENCE ISI 



PSP7I 

SPT7G: 

P37771 

PC171I 
CHR7E: 
CAC7H! 

CHCVTl 



osmbbb 

O»M0Ofl 
000377 
*90("U 

00OABA 

04B777 
10I31S 

0A1401 
17&10C 
054772 
0347/0 
116415 

fc0«403 
004564 
0O0407 
«04557 
1>20M4 
U344I0 
1634(14 
000774 

04051S 
020757 
034755 
175209 

OP140A 



ii«>»O07 PC77I 



CHA73: 



LOA 
JSP. 



IS 

{ 

3/7 

1! 




STA 

MOVSB 
JMP 
MOVL 
STA 

LUA 

sub* 

JMP 
JSW 
JMP 
JSP 
LDA 
LDA 
AND 
JMP 

STA 

LUA 
LDA 
MOVK 
JMP 



0,CHARACT£« 
•ICMC7T 



TO BE PRINTED (RIGHT BYTE) 



f>,CAC7B 

(tie, simp 

1.3 
3.3 

3.CMR7E 
3.PC171 

H,3,SnR 

CMA73 

TYP7E 

CHE7X 

TPSJP 

0.CHR7Z 

3.PC77 

3,0, SiR 

CHA73 

DiCnKTZ 

?,CAC7!I 

3.CMR7E 

3,3 

0,3 



(ACO SAVE IN CHC7T KOUTINE 

isAvt Ace 

(KEIURN *2 IF NULL 

(FDR CARRY SAVE 

(PRINT Cta) RIGHT 

IAC3 • 11 

ISKIP IF A TAB IS NUT TO 

IbE SIMULATED 

(PRINT IT 

(EXIT 

(PRINT A SPACt 

(AC3 • 7 

(SIMULATE A TAB WITH 1 
(TO 7 SPACES 

(RESTORE ACt) 
(RESTORE CRt 
( 
(EXIT 



ll"0b6 AKIIH 








ItRLtf 


ROUTINE 




«J 








it 


(THE L4LLING SE 


UUEMCE I 


'3 5 








tb 




JSK 


#ICKL7F' 


07 








*H 








4» 








IB 03142 064474 


CRL7F1 


STA 


3.RTN7A 


11 03143 0045M7 




JSR 


SAV7E 


12 (13144 15?«4H5 




LOA 


B,K15? 


13 10314b 1904544 




JSP 


TYP7E 


14 03146 020402 




LDA 


1.K127 


15 03147 00073b 




JnP 


PLS7T 


16 o315i» 0(10912 


"1271 


12 




17 03151 O00P15 


K157: 


15 




16 








14 









(SAVE RETURN 
(SAVE THE WORLD 

(PRINT CARRIAGE AND LF 

(GO TO RESTURE THE WORLD 



in 

31 
J2 
t!3 
it 
JI5 
710 
37 

as 

719 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2b 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3b 
39 
40 
41 
42 
43 
44 
45 

4b 
47 
46 
49 
561 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 



1, OCTAL NUMBER TO St PRINTED 
(LEADING ZEROES NUT SUPPRESSED) 
0IPOC7T 



Z0C7T, P0C7T, POCTS AND POEtC ROUTINES. 

THE CALLiNU aEUUf-.NCE I3S 

LUA 1, OCTAL NUMBER TO St PRInTEu 

(LEADING ZEHOtS SUPPRESSED) 
JSR PIZ0C7T 

THE CALLING SEQUENCE IS1 

LDA 

JoP. 

THE CALLING 5EUUENCE ISt 

LUA l.OECIMAL NUMBER TO BE PRINTED 

(LEADING ZEROES SUPPRESSED) 
JSP »IPU£7C 

THE CALLING SEUUENCE ISl 

LDA 1, DECIMAL NUMBER TO BE PRINTED 
(LEADING ZEROES SUPPRESSED) 

JSR "IP0C7S 

ALPHA UHERE ALPHA IS THE CHARACTER PRINTEU 
AFTER THE DECIMAL NUMBER 



03152 054464 Z0C7T: 

03153 «!04477 

03154 1024*0 

03155 000404 

03156 O54460 PUC7TI 

03157 004473 

03160 020465 

03161 152620 ZP07TI 

03162 034464 

03163 000416 

03164 175400 PUC7S: 

03165 054451 

03166 004464 

03167 034447 
03170 K21777 



03171 
03172 



1-40716 
102000 

03173 000404 

03174 054442 PDE7CI 

03175 004455 

03176 102400 

03177 034751 POC721 

03200 030447 

03201 040707 PDC71I 



03202 101415 

03203 101400 



S1A 

JSP 

SUB 

JHP 

STA 

JSR 

LDA 

SUBZR 

LuA 

JHP 

INC 

STA 

JSR 

LOA 

LUA 



STA 

AUC 
JHP 
STA 
JSK 
SUH 
LUA 
LCA 
STA 



INC« 
INC 



3.RTN7A 

SAV7E 

0,0 

ZP07T 

3.RTN7A 

SAV7E 

0.PC670 

2,2 

3,PC170 

P0C71 

3,3 

3,RTN?A 

SAV7E 

3.RTN7A 

0,-1,0 



0.PSP7 

0,0 

PDC72 

3.RTN7A 

5AV7E 

0,0 

3.K12J 

2,0tT7B 

0.SPT7G 



0,0, SNR 
0,0 



SAVE THE RTN ADDRESS 
SAVE THE WORLD 



SAVE THE RTN ADDRESS 
SAVE THE WORLD 

PRINT C(l> IN OCTAL 
C(2)«100000, C(3)«10 

UPDATE THE RTN ADDR PNTR 

SAVE THE WORLD 

READ THE CHARACTER TO BE 

PRINTED AFTER THE UECIMAL 

NUMBER 

SAVE THE SPECIAL CHAR. 

AC0" -1 

SAVE THE RTN ADDRESS 

SAVE the world 

C<3)»12 

PRINT C(l) IN DECIMAL 

activate/deactivate the tag for 
special character 
both entries print number 
skip if ac0 is not -1 



00S8 AkITH 








41 1-320 4 


04155 J 




STA 


0.ZSU7P 


02 03205 


054443 




SI A 


3.TMP7 


MJ 03200 


if J4547 


OCOJTI 


LU» 


3.ZSU7P 


04 03207 


102001 


0EC7T: 


AUC 


0,0, SKP 


05 03210 


140400 




SuB 


2,1 


06 03211 


101405 




INC 


0,0, SNR 


a7 03212 


151235 




MOVZR* 


2,2, SNR 


00 0321.) 


034432 




LUA 


3.PC670 


09 03214 


146453 




SuBOW 


2,1,SNC 


10 03215 


000773 




JHP 


.-5 


11 03210 

12 

13 »3217 


054537 




STA 


3.ZSU7P 


163004 




ADD 


3,0, SIR 


14 03220 


004675 




JSM 


CHC7T 


15 03221 


034427 




LOA 


3.THP7 


16 U3222 


102400 




SUB 


0,0 


17 03223 


172423 




SUBZ 


3,2,3NC 


lb 










19 03224 


000403 




JHP 


.*3 


20 03225 


101400 




INC 


0,0 


21 03226 


000775 




JHP 


.-3 


22 03227 


111004 




HOV 


0,2,SZR 


23 03230 


000756 




JHP 


DC07T 


24 03231 


034657 




LUA 


3.SPTTG 


25 03232 


020660 




LUA 


0.PC17I 


26 03233 


175405 




INC 


3, 3, SNR 


27 03234 


020653 




LUA 


0.PSP7 


26 03235 


000647 




JHP 


PLS7T 


29 










30 03236 


000000 


RTN7AI 







31 03237 


000000 


PCR7V: 







32 0324O 


000000 


PAC70: 







33 03241 


000000 


PAC71I 







34 03242 


000000 


PAC72I 







35 03243 


000000 


SAV7Fi 







36 03244 


000000 


CHR7ZI 







37 03245 


000050 


PC670: 


60 




36 03246 


000010 


PC170: 


10 




39 03247 


023420 


0ET7B: 


10000. 




40 03250 


000000 


TMP7I 







41 03251 


000013 


HSK7: 


13 





ITHEN TAB TO NEXT PuSITION 

(SAVE AC3 

IZEROS SUPPRESS STUF 

(SKIP FIRST TIME HERE PER DIGIT 

(DIVIDE C(ACl) BT CCAC2) 

I 

IFOR ZERO SUPPRESS 

I 

(SUBTRACT MORE? 

IYES.GO BACK 

(NO.SAVt ZERO SUPPRESS FLAG 

(CC0)«DIGIT 

(MAKE ASCII 

(PRINT 

(RESTORE AC3 

I 

(DIVIDE CCAC2) BV C(AC3) 

(SKIP IF AC3 > AC2 

IAC3 < AC2 

(SUBTRACT MORE 

(WAS IT LAST DIGIT7 

(NO, GET NEXT DIGIT 

(YES, CHECK THE SPECIAL CHAR FLAG 

(FOLLOW THE PRINTOUT WITH 

(TAB IF NOT SPCL CHAR FLAG 

(OTHERWISE FOLLOW WITH THE CHAR 

(TO EXIT 



(CRT SAVE LOCATION 
(AC0 SAVE LOCATION 
IAC1 SAVE LOCATION 
»AC2 SAVE LOCATION 
(INTERUPT ENABLE FLAG 



(MASK FOR TTI,TTO,LPT 



leu 
ui 

02 
3 

04 

as 
at 
j? 
Kb 
an 
IB 
11 
12 
13 
1« 
IS 
lb 
17 
18 
18 
20 
21 
22 
23 
24 
25 
26 
27 
2b 
20 
36: 
31 
32 



b9 IHI1H 



I 

I SAV7E , SAVE TMt "OKLD ROUTINE 

I 

; THIS ROUTINE SAVES ACB,AC1,AC2 AND CRY 



6)3232 H4B766 SAV7EI STA 



H323J »447s6 

d32S« 6150766 

61323b lt-2560 

>)3256 6)4^761 

IC3257 *2»772 

032S61 0626"77 

fc3261 BJKDB 



STA 

STA 

SubCL 

STA 

LDA 

MSKO 

JHP 



0,PACJ0 
1,PACJ1 
2,PAC72 

0,PCR7Y 

0.HSK? 

a 

0,3 



GET MASK FOR TTI.TTO ,LPT 



I 

; R5T7R , RESTORE THE *URLO ROUTINE 

( 

I THIS ROUTINE RESTORES THE AC0,AL1,AC2 AND CRY 

; 



6i3262 n26i755 R5T7R: LOA P.PCR7Y 

»3263 16-1200 MOVH 0,0 

03264 6)2d7b4 I.UA 0.PAC70 

032SS 6)24734 LDA 1.PAC71 

i)326b 1524B0 SuB 2.2 

613267 6)72077 MSKU 2 

6)327.) ,)3«17S2 LDA 2.PAC72 

03271 ,101400 JMP 0,3 



10090 ARII 
«ll 

192 
03 

04 
<93 
96 
197 

<le 
39 
If" 
11 
12 
13 
14 
18 

16 W3272 

17 613273 
lb 03274 
Ik 14327!) 
26) 0327b 

21 03277 

22 3 arm 

23 1)33(11 

24 03J02 
2!) 0330 J 

26 613304 

27 03303 
»b 
2» W3JP6 

30 uiJf/ 

31 613316) 

32 03311 

33 6)3312 

34 0331J 
36 613314 

36 0331b 

37 t!331b 
3b 

39 

4H «i3317 

41 03320 

42 03321 

43 MJ322 
44 

4b 03323 
4b 613324 
47 03323 
«b 193326 
4S 03327 
SB 03330 
31 613331 
32 

33 03J32 

34 1*3333 
S3 i.3334 
56 a3333 
37 03336 
56 613337 
SB »334k, 
S0 613341 



TYP7E AND TPS7P ROUTINES. 
THE CALLING SEuUENCE lb: 



LDA 
JSR 



0, CHARACTER TO 
HTYP7E 



BE PRINTED (RIGHT BYTEj 



TH t CALLING SEUUENCE IS: 



JSR 0ITPS7P 

NORMAL RETURN HITH AC61 



133005 
isP6i4b7 
126461(1 
1SS422 
1234611 
157001 
(16775 
uS4Sml 
61261743 

1S3000 

6104405 

<J6H)524 

J40445 
62.1447 

101001 

61461442 
17316)1" 
if 3 4 « 4 1 
6.34567 
163400 
6i343b4 



173404 
6)34112 
177100 
173112 

6100405 

osini 

063511 
000777 

6)6^211 
1771*10 
1771»)3 

6)06146)5 
6)61117 
(163317 
.161*777 
»6«217 
6134544 
110043 
^344 15 



TPS7P: 



TYP7E: 



TTY7: 



PLP7TI 



THR7T: 



HOV 


1,3,SnR 


JHP 


T1N7R 


SUB 


l.t 


SUBZ 


2,3,SZC 


INC 


1,1, 5KP 


ADO 


2.3.SKP 


JhP 


.-3 


STA 


3.FST70 


IDA 


0.PC670 


ADO 


3.0 


JSR 


TYP7E 


JHP 


TIN7H 


ST» 


0.TAC70 


LOA 


0.PC4Y0 


HOV 


0,0, SKP 


STA 


0.TAC7B 


HOVL 


3.3 


STA 


3.TYP7R 


LDA 


S.P1777 


AND 


3.0 


LDA 


3.I..T7 


INC 


3.3.SZR 


LuA 


3.SHRLG 


ADOL 


3.3 


MOVLK 


3.3.SZC 


JHP 


PLP7T 


OOAS 


0.TTO 


SKPbZ 


TTO 


JMP 


.-1 


NIPC 


1T0 


AUOL 


3,3 


ADDL 


3,3,SNC 


JmP 


TPRJT 


IDAS 


0,Lf"T 


SKPBZ 


LPT 


JHP 


.-1 


NIOL 


LPT 


LOA 


J.P1777 


ADCU 


0,3. SKC 


LDA 


3.PL470 



ICAN'T RUB-OUT IF ACI ■ 
(RETURN KITH ILLEGAL CHARACTER 



ISKIP IF ACS IS LESS THAN AC2 



l"FST70" IS NON -I. 

IAU0 • 60 



(ECHO AND DELETE THE DIGIT 



ISAVE AC0 

ISKIP OVER ACB SAVE 

ISAVE ACB 

ISAVE CRY AND RTN ADDR 

ITYPE THE RIGHT Bl'TE OF ACB 

ISTRIP THE PARITY BIT 

I 

I If IT IS HERE DUE TO SNITCH 

ISETTING ROUTINE THEN THE TYPE 

IUUTS TO THE TTY HILL BE ENABLED 

ISKIP IF INT7 IS -I 

(READ THE SNITCHES 

ISHIFT AC3 BY 2 PLACES 

ISKIP IF TYPEOUTS ARE NOT 

{SUPPRESSED 



ICLtAR TTO DONE FLAG 
ISHIFT AC3 BY 2 PLACES 
ISKIP IF THE OUTPUT IS 
•REQUIRED ON THE LPT 

lOUIPuT THE CHARACTER TO LPT 
l»AIT FOR LPT 

ILLfcAR THt DONE FLAG FOR LPT 

I 

ISKIP IF IT MAS RUBOUT 

IAC3 > 40 



iaeivi AR 


7H 








HI k>33*2 


162432 




SUFUS 


3,H,SZC 


02 M334J 


010701 




ISZ 


CHR7Z 


*i 03344 


V34541 




LDA 


S.PC175 


*4 03345 


116445 




SuBO 


1»,3,SNH 


•AS «j3340 


£54676 




911 


3,CMR7Z 


06 033'; 


420404 




LUA 


fl,TAC7«« 


*7 0335a 


03441214 




LDA 


3.TYP7R 


38 03351 


17520P 




MOVK 


3,3 


39 123352 


ll\*ZZ 




JnP 


«,3 


IB 03JSJ 


a?«i?iea 


T A C ? P 1 


B 




It 03JS4. 


0B0&0S« 


TYP7R: 


X 




12 










13 03355 


k^Kiepp 


ZSU7PI 


» 




14 i)3356 


Wfl0A40 


PC4J0I 


4 ifl 




lb 










16 











(SKIP FOR NUN PRINTING CHK, 

(AC3 • IS 

(SKIP IF IT WAS NOT * "CR" 

(CLEAR THE HORZ POS 

(RESTORE AC0 

(RESTORE CRT AND RTN ADOR 

I 

(RETURN 



U092 AMI 

31 

/2 

03 

t"4 

<!» 

06 

a7 

*b 

IK 
11 
u 

13 
14 
15 
16 
17 
lb 
19 
20 
21 
22 
23 
24 
25 
26 

27 0335/ 
26 03360 

28 03361 
310 03362 

31 B336J 

32 113364 

33 03365 
34 

35 

36 03366 

37 03367 
36 

4k 03370 

40 

41 1*3371 

42 03372 

43 03373 
44 

45 4)3374 

46 03375 

47 143376 
46 03377 

49 03400 

50 03401 
51 

32 034S!2 
S3 

54 83403 

55 434P4 
36 03405 
57 034B6 
36 03407 
59 03410 

ae 03411 



TINTg AND TIN7U ROUTINES, 
IHt CALLING SEUUENCE IS) 



JSR 



#IT1N70 (ACCEPT IN OCTAL 



ERROR RETURN 
NORMAL NE1UKN 



NITH BAO CHARACTER IN ACS 
WITH TEKMJNATIN6 
CHARACTER IN ACB 
1(40,12,15,53 FOR 
NULL, SPACE, L/F.C/R AND 
COMMA RESPECTIVELY. 



THE NUMBER IS ACCEPTED IN AC1 FROM TTI BY TINTO AND 
BAD CHARACTER IS ANY CHARACTER THAT IS NOT A LEGAL 
DIGIT OR A TERMINATING CHARACTER 

THt CALLING SEQUENCE IS: 

JSR »ITIN70 (ACCEPT IN DECIMAL 
ERROR RETURN (SAME FORMAT AS TIN70 
NORMAL RETUkN 



02*325 T1N7CI 
004731 

010653 TIN7XI 
040420 TIN7RI 
152B0* 

B20771 TSI7I 
17562* 



054767 
1(11112 

12440* 

03463B 
15700K 
044646 

12640? 
131113 

0«0433 
0A4663 
020402 
3(12635 

BH0B0!! FST70I 

054633 TUD7T: 
k.04646 
172042 
*40774 

101120 

0P0411 
354823 TIN70I 



LDA 
JSR 
ISZ 
STA 
ADC 
LDA 
INCZR 



STA 
MOVL» 



LDA 

ADO 
STA 

SUB 

MUVL* 

JMP 

JSR 

LliA 

JMP 



STA 

JSR 

ADC 

STA 

MDVZL 

JMP 

STA 



8.PC172 

TYPTE 

RTN7A 

B.FST70 

2,2 

B.ZSU7P 

3,3 



3.ZSU7P 

B.e.Str 
1,1 

3,PAC7I 

3,1 

1.PAC71 

1,1 

2.2.SNC 

TIN7W 

R5T7R 

P.FST70 

#RTNTA 



3,RTN7A 
SAV7E 

«,B 

«,FST7D 

0,0 

TIN7Z 

3,RTN7A 



("FSTTD" IS NON .1 
(AC2 • -1 

(AC3 IS t IF THE CHARACTER 
(TYPED MAS A * AND A 1BSIBB 
(IF IT MAS A -, 

(SKIP IF THE PREVIOUS SIGN 
MAS A PLUS 

(TAKE TWO'S COMPLEMENT IF 
(THE PREVIOUS SIGN MAS "-" 



(PAC71 MAS THE INTERMEDIATE 
(RESULT 

(SKIP IF EXIT IS REflUIRED 

(RESTORE THE WORLO 
(HESTORE ACB 
(RETURN 



(SAVE THE RTN ADOR 

(SAVE THE WORLD 

(AC1 • -1 (ENTRY FOR OOT) 

(LOOK FOR FIRST OIGIT 
(AC1 ■ -2 

(OCTAL ENTRY, SAVE RTN ADOR 



PBM3 *KI[H 
"1 03112 004640 
02 03413 102120 
*J 03414 H00404 
»a 03415 034621 T1N7QI 
OB 03416 M4SJ4 
Jib 03417 102440 
07 0342w l?o48(> TINJUI 
IB 03421 IS30463 TIN7Z: 
»Si 03422 HW« 

in 

11 03423 102440 

12 03424 1.1 4 7 3 1 

13 03425 0S47J0 TIN7SI 

14 6)3426 17Sf»14 

15 (13427 «ieiio732 
It 03430 U54SH 

17 03431 063610 TIM?«: 

IB 03432 U00777 

Ik 03433 060610 

20 03434 004655 

21 03435 V.34446 

22 03436 163400 

23 03437 116415 

24 03440 000632 

25 03441 K34715 

26 ti3442 H0414 

27 03443 101015 
26 03444 000761 
2Sf 0344b 034442 

30 03446 llb405 

31 03447 000712 

32 0345*, 175414 

33 03451 175235 
3« 03452 000712 

35 03453 «J34432 TINJM: 

36 03454 110415 

37 03455 00070? 
36 03456 034426 

39 03457 116404 

40 03460 000403 

41 03461 020424 

42 03462 000676 

43 03463 034423 TINJNS 

44 03464 117022 

45 03465 156513 

46 03466 000674 

47 03467 010666 
46 03470 102400 
46 03471 v.10711 
50 

51 03472 121120 
92 03473 105120 

53 03474 125120 

54 03475 167700 

55 03476 155220 

56 03477 175232 

57 03500 107000 

58 03501 000730 
Sit 

60 035(12 000000 INT7I 



JS« 


SAV7E 


ADCZL 


010 


JhP 


TIN7Q 


STA 


3.RTN7A 


JSH 


SAV7E 


SUBO 


0,0 


SUB 


1.1 


LI' A 


2.PC172 


ADD 


0.2 


SuBO 


0,0 


STA 


0.ZSU7P 


LUA 


3.ZSUJP 


MOV* 


3.3.SZH 


JhP 


TIN7X 


Sit 


3.PAC71 


Sf.Pl.IN 


TTI 


JMP 


.-1 


DIAL 


a.Tri 


JSR 


TYP7E 


LUA 


3.P1777 


AND 


3,0 


SUB" 


0,3,SNR 


JhP 


RUB? 


LDt 


3.PC470 


Subs 


0,3, SUH 


MOV* 


0,SI, SNR 


JHP 


T1N7S 


LUA 


3,TIN?2 


SUB 


0,3, SNR 


JMP 


TIN7X 


INC* 


3,3,SZR 


MUVZH* 


3,3,SNH 


JMP 


TSI7 


LU4 


3.PC173 


SUB* 


«I,3,SNR 


JhP 


TIN7C 


LUA 


3.PCI72 


SUB 


0,3,SZR 


JMP 


TIN7N 


LUA 


»,PC1?5 


JMP 


TIN?C*1 


LOA 


3.T1N71 


ADDZ 


0,3,SZC 


SUBL* 


2,3,SnC 


JMP 


TIN7H 


152 


ZSU7P 


SuB 


0,0 


ISZ 


FSTTD 


MUVZL 


1,0 


MOVZL 


0.1 


MOVZL 


1.1 


AUP 


3.1 


MUVZP 


2.3 


MUVZH* 


3,3,SZC 


ADD 


0,1 


JhP 


TIN?* 



[SAVE THE WORLD 

(OCTAL ENTRY SWITCh 

I 

(DECIMAL ENTRY, RTN SAVED 

(SAVE THE WORLD 

(DECIMAL ENTRY SWITCH 



(AC2 IS 10 FOR OCTAL AND 12 
(FOR DECIMAL NUMBERS 

(SIGN ANO LEADING SPACES FLAG 

(SKIP FOR LEADING SPACES 



(STHIP THE PARITY BIT 
(SKIP IF NUT A RUB-OUT 



(SPACE, OR NULL 

(COMMA 

(MINUS 

(UR PLUS J 

(MODIFY THE SIGN 

(AC3 ■ 15 

(IS IT A CARRIAGE RETURN? 

(IF CR THEN GO TO TIN7C 

(AC3 • 12 

(SKIP FUR LINE FEED 

(AC0 » 15 



(SKIP IF NOT A DIGIT 
(SKIP IF DIGIT 

(OUT OF LEAOING SPACES 
(AC0 • 

(SKIP IF IT HAS FIRST OIGIT 
(FOR ODT 



(AC1 IS SHIFTED BY 3 PLACES 
(6 OLD PACTl'S * NEH DIGIT 



(SKIP IF OCTAL MODE 
(ADO 2 ULD PACTl'S 



(TYPE OUTSS CAN Bt FORCED TO 



00U4 AKITH 

11 

Jli U35P3 000177 P1777I 177 

03 B3504 (10W01? PCI??! 12 

04 03505 «,0*ei5 PC175I 15 
06 03506 177720 TIN?!! .60 
*6 03507 000054 TIN781 54 
<>7 035)0 00el00 C1070! 100 



(TTY BY PLACING -1 IN THIS LOC. 



UP95 ARITM 

02 
13 
04 
B5 

«e 

07 
06 
as 
IB 
II 
12 
U 
14 
IS 
16 
1/ 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
28 
30 
31 
32 
33 
34 
36 
36 
37 
38 
39 
411 
41 
42 
43 
44 
45 
46 
47 
46 
49 
5fc 
51 
52 
53 
54 
55 
56 
57 
5B 
59 
SB 



,TITL S«PAK 
(FILENAME « SNPAK 



ShITCM SETTINGS 

LOCATION "ShREG" IS USED TO SELECT THE PROGRAM OPTIONS 
(NOT SYSTEM CONFIGURATION). kMILE RUNNING UNDER DTOS, 
THIS L0CA1IUN HILL BE LOAUEO BY THE MONITOR, 
HOWfcVtR UNOER STAND ALONE AND PROGRAM LOAD MOOES THIS 
LOCATION HILL BE SET ACCORDING TO THE ANSWERS SUPPLIED 
BT THE OPERATOR. IN ANT CASE THE OPTIONS CAN BE CHANGED 
OR VERIFIED BT USING ONE OF THE COMMANDS GIVEN IN SEC. 
1.2 



SWITCH OPTIONS 

DIFFERENT BITS AND THEIR INTERPKETA1 IUN AT LOCATION 

"SHNEt," IS AS FOLLOWS: 



BIT 



OCTAL 
VALUE 


BINARY 
VALUE 


400BB 



1 


20000 


B 
I 







10000 


1 


04000 



1 


020BM 



1 


01000 



1 



INERPRETATION 



LOOP ON ERROR 

SKIP LOOPING ON ERROR 

PRINT TO CONSOLE 

ABORT PRINT OUT TO CONSOLE 

PRINT DETAILED ERROR UN THE 
SELECTED DEVICE/DEVICES 
ONLY X FAILURE REQUIRED 

ALLOH END OF PASS PRINT OUT 
SUPPRESS END OF PASS PRINT OUT 

DO NOT PRINT ON THE LINE PRINTER 
PRINT ON THE LINE PRINTER 

DO NOT HALT ON ERROR 
HALT ON ERROR 



SHITCH COMMANDS 

ONCE THE PROGRAM STARTS EXECUT 
THE BITS CAN BE CHANGED BY HIT 
PROGRAM HILL CONTINUE RUNNING 
EACH KEY HILL COMPLEMENT THE S 
ED >ITH IT, THUS BIT 4 CAN 8E 
StTTIN OF ANY BIT OF LOCATION 
(DEFAULT HOOE IS DEFINED AS AL 
THE PROGRAM CAN BE LOCKED INTO 
BY TYPING A 0, IN WHICH CASE 
CHANGED BEFORt THE CONTROL IS 
MAIN PROGRAM. 



ING THE STATE OF ANY OF 
TING KEYS 1 THROUGH 6, THE 
AFTER UPDATING THE OPTIONS 
TATE OF THE BIT AFFILIAT- 
ALTERED BY HITTING KEY 4. 
"SHREG" MILL SET BIT 0. 
L BITS OF SHREG SET TO U) 
SHITCH MODIFICATION MODE 
ORE THAN ONE BITS CAN BE 
ALLOWED TO RETURN TO THE 



1.2,1 OTHER COMMANDS 

»CR" A "RETURN" CAN BE TYPED TO CONTINUE THE PROGRAM 



eeies arith 
01 
0k 
03 
04 
05 
06 
J7 
06 
09 
10 
11 
12 
13 
14 
15 
16 



AFTER ITS LOCKED IN A SHITCH MODIFICATION HOOE 

THIS COMMAND GIVEN AT ANY TIME HILL RESET "SHREG 
TO DEFAULT MODE AND RESTART THE PROGRAM, 

THIS COMMAND GIVEN AT ANY TIME HILL RESTART THE 
PROGRAM, SWITCHES ARE LEFT WITH THE VALUES THEY 
HAD BEFORE THE COMMAND WAS ISSUED, 

THIS COMMAND GIVEN AT ANY TIME HILL CAUSE THE 
PROGRAM CONTROL TO GO TO OOT (SEE SEC, 6) 



THIS COMMANO GIVEN AT ANY TIME HILL PRINT THE 
CURRENT OPERATING MOOES. 



Iu097 AM 

ill 

02 

03 

04 

35 

06 

07 

3b 

09 

10 
11 

12 
1.3 
11 
lb 
lb 
17 
IB 
IV 
2* 
21 
22 
2b 
24 

as 

2o 
27 
2b 
29 
30 
31 
32 
33 
34 
39 
3b 
37 
38 
39 
4 SI 

41 03511 

42 (13512 

43 03513 
•44 

45 0S514 
4b 03515 
47 03510 

46 03517 

49 03520 

50 03521 
91 H3522 
52 03523 
*3 03524 

54 03525 

55 143526 
5b 

57 43527 
■5b 0353* 
59 »353l 
So 03532 



(THIS PACKAGE IS USED TU LHANGE THE 5ETTINGS OF LOCATION 

("SKUEK" UF PAGE 0, THE PROGRAM CONTROL SHOULD ENTER "INP7I OR 

;INP?J» *ITH »C3 HAVING THE RTN AODR. IF THE TTI INPUT IS 

(UN INTERRUPT BASIS, ENTER AT "INP7I" OTHERWISE ENTER AT "INP7J" 

lIHt INPUT IS ECHOED AFTER A "CR". IF THE COMMAND I Si 

[NUT A LEGAL ONt THfcN THE CONTROL IS RETURNED NITHOLIT DOING 

(ANY THINb, OTHERWISE ONE OF THt FOLLOWING COMMANDS IS 

lEXtCUTtDI 

(KEYS 1-9 AMD A-F ARE USED TO COMPLEMENT THfc CURRENT VALUE 

(OF BITS 1-15 OF "S«REG". IF ONE OF THESE KtYS IS HIT THE 

ItORRESPONDINK HIT OF "SWREG" IS COMPLEMENTED AND THE CONTROL 

IIS RETURNED TO THE STATE PROGRAM HAD BEFORE HITTING THE KEY 

(TYPING OF A "0" "ILL LOCK THE PROGRAM IN A SNITCH MODIFICATION 

INDUE IN WHICH CASE MORt THAN ONE BITS CAN BE CHANGED BEFORE 

ITHE CONTROL IS ALLUNtO TO RETURN TO THE MAIN PROGRAM, HITTING 

(THE "CR" KEY MLL UNLOCK THE PROGRAM FROM THIS MODE. 

(»»L>» THIS LOM»«ND GIVEN AT ANY TIME KILL RbSET THE "SWREG" 

(TO OtFAULT MUOt CALL ZEROS) AND RESTART THE PROGRAM AT AUD. 

(STORED IN LOCATION "INS?" 

("»H» THIS CDMMANNO GIVEN AT ANY TIME WILL RESTART THE PROG. 

(AT ADDRESS STORED IN LOCATION "INS?" 

(»M» THIS COMMAND GIVEN AT ANY TIME RILL PRINT THE CURRENT 

(OPERATING MOOES, 

IBEFORE THE CUNTRUL IS RETURNED TO IHE MAIN PROGRAM BIT WILL 

(BE SET IK ANY UF THE OTHER BITS OF "SWREG" IS SET, OTHERWISE 

(IT WILL BE CLEARED 

("DDT" ROUTlNt USES ONE LOCATION IN PAGE FOR BREAK POINT. 

(ADDRESS OF THIS LOCATION SHOULD BE PLACED AT "0DD7F" 

I 

(THE CALLING SEUUENCE ISI 

I 

I JSP OIINP? ,*HERE MNP? POINTS TO 

I INP?I OK 1NP?J 

I ENTtR AT 1NP?I FOR INTERRUPT 

I DRIVEN PROGRAMS .OTHERWISE AT INP?J 



000033 
000136 

000104 

6154574 
176121 
054572 
054465 
0(14543 
040574 
060S1B 
034760 
163400 
034760 
116415 

000426 
040557 
024757 
034752 



IN373I 33 
IN17361 136 
IN17041 104 



STA 
ADCZL 
STA 
STA 

JSR 
ST« 
DIAL 

LUA 
AND 
LUA 
SUB* 



INO?I 



JMP 
STA 

LDA 
LDA 



3,INP?R 

3.3.SKP 

3,INP7R 

3,INT?E 

INS7V 

«,INL?K 

0.TTI 

3,P17?7 

3,0 

3,PC1?5 

0,3,SnR 

InR? 
0,INS?3 

I ,C10?0 
3.PC172 



(SAVE THE RETURN ADDRESS 

(SAVE THE STATUS 

("INL?K" IS NOT -1 

(READ THE INPUT 

IAC3 ■ 177 

(GET RIO OF THE PARITY BIT 

IACI • 15 

(SKIP IF THE CHARACTER TYPED 

(WAS NOT "CR" 

(SAVE THE CHARACTER 
(ACl • 100 



009b AH1 
01 813533 
12 03534 
43 03535 
At 

05 03536 

06 03537 
07 

06 03540 
A» 03541 

10 03542 

11 03543 

12 03544 

13 03545 

14 03546 

15 03547 

16 03550 

17 03551 
lb 03552 
IV 03553 
20 

21 035S4 

22 03555 

23 03556 

24 03557 
26 03560 
26 03561 
?7 03562 
2b 03563 
29 

30 03564 

31 03665 

32 03566 

33 03567 
34 

35 0357O 

36 03571 

37 03572 
36 

39 

40 03573 

41 

42 03574 

43 

44 03575 

4b 

46 o3576 

47 03577 
46 03600 
49 03601 
5k. 03602 

51 03603 

52 03604 
53 

54 
35 

56 03605 

57 H3606 



Th 

116414 
034755 
182453 

ki 4 5 1 
107000 IN5?I 

020752 
0O60b7 
121000 
006067 
034562 
162015 
UO0405 
034744 
116404 
000504 
054U2 
1934541 



IN6?: 



054534 

176400 INR?: 

165000 

006062 

054722 

830112 

176220 

17JA04 

172000 
0501 12 
034523 
175223 

060211 
175220 
175204 



125004 
1760MO 

054514 

0205O6 
024506 
030506 
O34506 
010507 
0SO177 
002504 



SUn« 

LUA 

SUBO* 

JMP 

ADD 

LU» 

JSR 

MUV 

JSR 

LUA 

ADC« 

JMP 

LUA 

SUB 

JMP 

STA 

LDA 

STA 

SUB 

MUV 

JSR 

STA 

LDA 

AOCZR 

AND 

adt. 

STA 
LUA 
MOVZH 

NIOC 

MOVZR 
MDVR 



MOV 

ADC 

STA 

LUA 
LUA 
LOA 
LOA 
ISZ 

INTEN 
JMP 



0,3, SZR 
3,IN3?3 

3,0,SNC 

IM? 

0, 1 

0.IN1736 

»1TYP?E 

1,0 

#ITYP?E 

3,11271 

3,0, SNR 

INB? 

3.IN1704 

0,3, SZR 

IN4? 

3.SwREG 

3, INS? 

3,INP?R 

3,3 

3,1 

»ICRL?F 

3.INT7 

2, SWREG 

3,3 

3, 2, SZR 

3,2 

2,SwRtG 
3.STA7T 
3,!,SNC 

TTCi 
3,3 
3, 3, SZR 

1,1, SZR 

3,3 
3,STA?T 

B, INS7B 
1.INS71 
2.INS72 
3,INS?3 

STA?T 

»INP?R 



(SKIP IF IT IS A LINE FEED 
IAC3 • 33 

lUON'T SKIP IF AC0 IS 33 
(OR MORE 

(ACl • 100* ASCII VALUE OF 
(CONTROL CHARACTER 
(ACO • 136 
(TYPE « 



IAC3 • 121 

(SKIP IF IT IS NOT »R 

(ACS • 104 

(SKIP IF IT WAS A »D 

(LOAD "SWREG" WITH 

(AC3 • ADDRESS OF THE LOCATION 

INHERE THE PROGRAM WILL START 



IAC3 ■ 77777 

(SKIP IF THE SWITCHES ARE SET 
(TO ALL ZERO'S 



(SKIP IF DONE BIT ON TTO IS TO 
IBE LEFT SET 



(LOAD THE CARRY BIT AND SKIP 
(IF THE INTERRUPTS ARE NOT TO 
(BE ENABLED 

(SKIP IF THE INSTRUCTION BEING 
(EXECUTED IS A "P» 
(INTERRUPTS ARE TO BE LEFT DIS- 
ABLED 

("STA7T" IS B IF INTERUPTS ARE 
(TO BE ENABLED AND «1 OTHERWISE 
(RESTORE THE ACCUMULATORS 



(START EXECUTING THE USER'S 
(PROGRAM 



000000 INT7EI 
6.03306 I1PS7F: 



10QW9 ARI1H 






"11 


03607 


("B6067 IKJTI 


JSB 


01TYP7E 


02 


03610 


034517 


LDA 


3.INS70 


03 


8i36U 


152620 


SUSiR 


2.2 


34 


ki3612 


116405 


SUB 


0,3,SNR 


HO 










06 


03613 


000503 


JMP 


1N3? 


07 










m 


03614 


151221 INS?! 


MOVZH 


2,2,S*P 


»» 


03613 


126520 


SUBZL 


111 


10 


03616 


175405 


IhC 


S,3,SNR 


11 


03617 


000501 


JMP 


IN37+2 


12 


6)362(3 


147415 


AND" 


2, l.SNR 


IS 










14 


03621 


000773 


JMP 


IN27 


IS 


03622 


106400 


SuB 


0.1 


16 










17 


03623 


135000 


MUV 


1.3 


IB 


113624 


151225 


MOVZR 


2,2,SNR 


IB 


03626 


000430 


JMP 


IN4T 


20 


U3626 


024503 


Lu» 


l.lwl?5 


21 


03627 


1*7004 


ADD 


3.1.SZR 


22 


0363m 


000765 


JMP 


IN2?*I 


23 










24 


03631 


006062 1NM?I 


JSR 


P1CRL7F 


25 


03632 


152528 


SUH/L 


2,2 


26 


03633 


006065 


JSR 


01PuC?S 


27 


03634 


1*00040 


40 




2b 


03635 


125400 


INC 


1.1 


2* 


03636 


034472 


LOA 


3.IN112 


3d 
31 

32 


03637 


166452 


SUBO* 


3.1.SZC 


03640 


006746 


JSP 


0ITPS7P 


33 


03641 


151124 


MUVZL 


2.2.SZR 


34 


03642 


B00771 


jup 


INM7*2 


36 


03643 


006062 


jas 


0ICHL7F 


36 


03644 


030112 


to* 


2.SHRES 


37 


03646 


151140 


MOVUL 


2.2 


3b 


03646 


126560 


SUBCL 


1.1 


38 


03647 


006065 


JSB 


•IP0C7S 


4(1 


03650 


000040 


40 




41 


03651 


006735 


JSB 


•ITPS7P 


42 
43 
44 


03652 


151124 


MUVZL 


2.2. SZR 


03653 


000773 


JMP 


.•5 


4S 


03654 


000062 


JSR 


PICRL7F 


46 


03655 


0)0440 IN4JI 


ISZ 


INL7K 


47 










46 


03656 


000677 


JMP 


INR? 


48 


03657 


014436 


osz 


INL7K 


5 in 


03660 


063610 


SKPUN 


TTI 


51 


03661 


000777 


JMP 


.-1 


32 


03662 


000640 


JMP 


IN0? 


53 










54 










56 


03663 


040421 INS7V! 


STA 


0, INSJ0 


56 


03664 


044421 


STA 


1.INS71 


57 


03665 


050421 


STA 


2.INS72 


56 


03666 


102560 


SUBCL 


0,0 


59 


03667 


010716 


ISZ 


INT7E 



IECMO THE CHARACTER 

IAC3 • 60 

IAC2 • 100000 

ISKIP IF THE BISIT TYPED HAS 

INOT 



/SHIFT AC2 TO RIGHT 
IACI » 1 



(STAY IN LOUP UNTIL ALL BITS 
|0F SKREG ARE CHECKED 



IKMfcN THE CONTROL COMES HERE 
IFOR THt FIRST TIME AC1 « 100 



MCI » 15 

ISKIP IF THt COMMAND HAS "M" 



(TYPE A "CR" AND "LF " 

I SE T AC2« 1 

1PHINT THE CONTENTS OF AC1 



IAC3 > 12 

ISKIP IF AC1 IS GREATER OR EQUAL 

ITO AC3 

IPRINT A SPACE 

(SKIP AFTER TYPING » 15 



IAC2 HAD SNITCH SETTINGS 
IBRINU THt CARRY BIT IN AC1 
ITYPE THE CONTENTS OF AC1 

ITYPE A SPACE 

ISKIP AFTER TYPING ALL THE 16 

(BITS 



ISKIP IF THE PROGRAM IS LOCKED 
| IN SWITCH INPUT MODE 

InEVER SKIP 

|*AIT FOR OPERATOR INPUT 



60 



ISAVE THE ACC, 



ISAVE THE CARRY 

ISKIP IF ODT IS ENTERED THRU 

•INTERRUPT HANDLER 



0100 AkllM 








01 03670 


063577 




SKPBZ 


CPU 


02 










03 03671 


101141 




MOWOL 


0,0, SKP 


04 «13672 


101120 




MUVZL 


0,0 


05 03673 


060277 




INTDS 




46 03674 


0B3611 




SKPON 


TTO 


*7 03675 


101121 




MOVZL 


0,0, SKP 


0B 03676 


101140 




MUVOL 


0,0 


0B 03677 


240412 




STA 


0.STATT 


10 03700 


152000 




AOC 


2,2 


11 03701 


050601 




STA 


2.INT7 


12 










13 03702 


002062 




JMP 


#ICRL7F 


14 










lb 03703 


005400 


INS7AI 


JSR 


0,3 


16 03704 


000000 


INS70I 







17 03705 


000000 


INS71 : 







16 03706 


000000 


INS72! 







19 03707 


000000 


INS73: 







20 03710 


000000 


INP7R1 







21 03711 


000000 


STA7TI 







22 03712 


177777 


INB7AI 


-1 




23 03713 


000000 


1NB7II 







24 03714 


000200 


1NS7I 


RL37T 




25 03715 


000000 


INL7KI 







26 










27 03716 


176000 


IN37I 


ADC 


3,3 


26 03717 


054776 




STA 


3.INL7K 


2fc 0372B 


024112 




IDA 


1,S»REG 


30 










31 03721 


133414 




ANOP 


1,2, SZR 


32 03/22 


146401 




SUB 


2,1, SKP 


33 03723 


147000 




ADC 


2,1 


34 03724 


044112 




STA 


1, SURER 


35 03725 


000730 




JMP 


IN47 


36 










37 










36 U3726 


000121 


112711 


121 




39 03727 


000060 


IN670: 


60 




4P 03730 


000012 


IN172: 


12 




41 03731 


000015 


IN175: 


15 




42 










43 











ISKIP IF INTERRUPTS AKE NOT 
ItNABLEO 



ISAVE THE TTO STATUS 



IFOHCE THE TYPE OUTS ON 
I THE TELETYPE 



IAC3 • -I 

ILOCK IN SNITCH INPUT NODE 

INEAO THE CURRRENT VALUE OF 

l"S»REG" 

ITAKE XUR OF AC1 AND AC2 



ISAVE THE NEK VALUE OF "SNREG" 



luldl akiih 

HI 

«2 



»b 

46 

0/ 

06 
»B 

It 
11 
12 

13 

14 

lb 

16 

17 »3732 

ID 

11* 03733 

20 »3/34 

21 t)373S 
22 

24 »3/3o 

24 193/37 

26 »374i 

26 H3741 

27 03/42 

26 

2» 03743 
31 03744 

31 23/43 

32 H3/46 

33 o3/4/ 

34 4376H 
3b 03/51 
36 o3/52 
3/ 03/53 
36 03754 
3W o3/5b 
Alt, 

41 »37So 

42 

40 

44 »3/5/ 

45 03/6« 

46 03761 
4/ 

46 W3/62 
49 03763 
Slj 03/64 

51 B3/65 

52 03766 

53 03767 

54 03770 
5b 

56 03771 

57 03772 
56 

59 03773 
6(0 ,13774 



.liri OuTPK 
(FILENAME • ODTPK 

I HE. CALLINfa SEwUtNCE IS: 



006065 0DA7CI JSR 



f0dl01 
C06652 
004746 

1719B0 
13J6iHd 
P34535 
136453 
00*473 

116005 
0BU612 
/347b2 
116005 
<)C«4.14 
14501^0 
175225 
000434 
O060O4 
H*41i<2 
OO0425 



•U071! 101 

00*71 JS« 
JSP 

MOV 

*un 

Lu» 

SuBU* 

JMP 



0UP7CI 

oob?T: 



034^00 
000402 

054726 

»54726 

0«4703 
152400 
o24723 
044722 

O06r70 
151404 

V0O4J0 
*>2«721 

B34717 

126001 



DUT7H 



»uC 

JMP 

LO* 

4UC 
JMP 

muv 

MUV/R 

JMP 

JSR 

TP7? 

JMP 



054731 0UT71: St* 



JmP 
0DT7JI SI* 



ST* 
JSP 
SUB 
Lui 
ST* 
JSR 
INC 



JMP 

OUtlTBi Lui 



Lu* 
*UC 



»10DT7, WHERE IOOT? POINTS 10 0DT7I OS 

0DT7J 

ENTt« iT UDT7I IF RUNNING ON 

INTERRUPT BASIS, UTMERWISt 

ENTER *T 0DT7J 



rrype the accumulator number to 

(BE OPENEO 



PITPS7P 

INS7A 

3,2 
1,2 

3,0U77 

1,3,SNC 

0UA7L 

0,3,SMH 

INR7«1 

3,0DS7«I 

0,3,SNR 

0UL7C 

2,1 

3,3,SNP 

0UR7T»4 

PIMtSTS 

no«7T 

3.INS73 



3,i! 
.♦2 

3.INS73 

3.INP7R 

InS7V»3 

2.2 

1.INP7R 

1.INP7R 

»IZUC7T 

2,2,32R 

O0R7T-1 
B.INB7I 

3.INB7A 
1,1, SKP 



(TYPE A SPACE 

ILOAD ACS WITH THE ADDRESS OF 

I1NS7B 



IAC3 • 7 

ISKIP IF ACC, NUMBER IS NOT OK 



(IF IT IS A »P" THEM PRUCEEO 

l»C3 • 60 

ISKIP IF ACB IS NOT »/" 



(SKIP IF IT IS NOT * 
(TYPE A "7" 



I FORMALLY THE PROGRAM SHOULD 
(ENTER UDT AT THIS LOCATION 
I THROUGH AN INTERRUPT HANDLER 
IAC3 • RETURN ADDRESS 

IOOT SHOULD BE ENTEKED AT THIS 
(POINT THRU A JSR 
l"INP7R" HAS THE RETURN ADO. 
ISAVE THE 5TATUS 



(TYPE THE HALT LOCATION+1 
ISKIP IF THE BREAK POINT HAS 
(TO Bt DELETED 

ILOAD ACB IN CASE THE BREAK 
(POINT IS TO BE REMOVED 



fcln? AKITH 






31 


0J77b 


nSbk'ioP 0DB7PI 


Sit 


3,e>,2 


0? 


»3776 


17b4i4 


I~C« 


3,J,SiH 


=13 










04 


<j3/77 


J42713 


ST» 


0,*INB7A 


ii 


4 W 


/44712 


Sli 


i, INS7A 


06 


04&01 


J6.J21? 


NIDL 


TTI 


07 


04002 


f.05t!b2 00«7Tl 


JSR 


#ICRL7F 


36 


04O(J3 


kl 5 4 4 7 4 


STi 


3,0DL7T 


a» 










let 


04004 


3«6f»64 


JSR 


PIMES7S 


tl 


04o0b 


««l(3 


0uT7P 




12 


440X6 


006472 


JSR 


PITU07T 


13 










14 


04(sB/ 


H6B077 


NIO 


CPU 


lb 


0401 


<l3472«l 


LOA 


3,00172 


16 


io4(«ii 


116414 


Sub* 


0,3,SJR 


17 


04 B 12 


»134717 


LUA 


3,00178 


16 


04013 


116414 


SUB* 


0,3,Sifi 


IB 


04X14 


0f0426 


JMP 


HDD7R 


20 


04015 


loU462 


ISZ 


0DL7T 


21 


o4ol 6 


'4Pw4vl2 


JMP 


.♦a 


22 


0401/ 


U4b^dl9 


STA 


1,0,2 


23 


44U2u 


1H1233 


MOVZR# 


0,»,3nc 


24 


04o21 


^Pi|fl7bl 


JMP 


0DW7T 


2b 


04022 


1454«IX 


INC 


2,1 


26 










27 


o4o23 


152220 00L7CI 


iUCJR 


2.2 


26 


1)4024 


1474«i0 


AND 


2,1 


2b 


04k2b 


021450 


LOi 


0,OU77 


1*1 


04026 


^04655 


JSR 


iNStA 


31 










32 


w4o27 


166422 


SUB2 


3,1,S2C 


33 










34 


04o3o 


122433 


SUB2* 


1,0, SNC 


35 


B4 31 


167PM1 


ADD 


3,1, SKP 


36 


04032 


dpo700 


JMP 


0DA7C 


37 


v)4<i33 


u»6ki70 


JSP 


•IZ0C7T 


3b 


a4i!34 


131»*i« 


MOV 


1,2 


3i 


t)4o3b 


1260»0 0lii7L! 


iQC 


1.1 


4H 


B.4^36 


U44441 


STi 


1.0DL7T 


41 


«14«:37 


^1250^0 


LD* 


1,0,2 


42 


B4U4d 


vi06066 


JSR 


»IPDC7T 


43 


U4<!41 


<l««i745 


JMP 


00"7T*4 


44 










4b 


04B42 


<134671 0U07R: 


LD1 


3,N|071 


4b 


tt4^4J 


116405 


SUB 


0,3,SnH 


4/ 


t>4v<44 


«0S»67tfl 


JMP 


0UA7 


46 










49 


<14/i4b 


175655 


INCUR* 


3,3,SnR 


5n 


^4u4d 


034644 


LPA 


3,lNB?i 


51 


H4« 47 


175645 


INCUR 


3,3,SNR 


5k 


k9405e 


125112 


MOVL* 


1,1, SZC 


53 










54 










55 


H41»5l 


1 00414 


JnP 


0007C 


56 


I04H58 


044640 


STi 


1.1N97A 


5/ 


B4U5J 


036637 


LUA 


3,»INB7A 


56 


fi4^54 


054637 


STA 


3,IMB7I 


59 


84«5b 


t'3^421 


LU 


2,0307F 


6f, 











ISKIP IF THERE IS NO BREAK 
IPOINT 

(ENABLE BREAK POINTS 

ILLEAR THE TTY INPUT OONE SIGNAL 

(MAKE THE TAG FOR OPEN LOCATION 
(NON -1 (NO LOCATION IS OPEN) 



(ACCEPT OCTAL NUMBERS SEPERATED 

(BY * OR - SIGNS 

(NO-OP 

(CHECK FOR A LINE FEED OR RETURN 



(DECODE REST OF THE COMMANDS 
(SKIP IF A LOCATION IS OPEN 

(RESTORE THE OPEN LOCATION 
(SKIP IF IT MAS NOT A »CR" 

(IF IT IS A LINE FEED THEN ADO 

(1 TO AC2 

(AC2 ■ 77777 

(NEGLECT ADDRESS BIT 

(ACB ■ 7 

ILOAD ACS MITH THii AODRESS 

(OF INS70 

(SKIP IF THE AODRESS IN AC1 IS 

(LESS THAN THE AOORESS OF INS7B 

(SKIP IF AC1 IS 7 OR LESS 

(OTHERWISE IT MUST BE AN ACC, 
(TYPE ACl 



(OPEN A LOCATION 

(TYPE THE OPEN LOCATION 



(»C3«10t 

(IF AN "A" HAS BEEN TYPEO 

(THEN GO TO SERVICE ACCUMULATOR 

(ROUTINE 

(SKIP IF IT HAS NUT A "B" 

(MAKE SURE THAT THIS IS THE 

(FIRST BREAK POINT 

(SKIP IF BIT OF THE ADDRESS 

(■MERE THE BREAK POINT MILL 

(bE PLACED IS B 

(DECODE OTHER COMMANDS 

(SAVE THE BREAK POINT ADO, 

(SAVE THE BREAK PUINT INS7 
(dRING THE ADDRESS OF LOC. 
(IN PAGE ID TO BE USED BY THE 



0103 AKITH 








01 










612 0405b 


02B423 




LU» 


0,OOI7N 


03 041SS7 


143P00 




»pn 


2,0 


04 04060 


10PI*7 13 




JSR 


0BB7P 


05 04061 


05462S 


0U67EI 


ST* 


3,INS73 


06 04*62 


004601 




JbR 


INS7V 


17 04063 


024627 




LDA 


1.INB7A 


&b 04064 


000702 




JMP 


0DT71 


09 










lu 04065 


175665 


ouo?c: 


INCCR 


3,3,SN« 


11 










lit 04066 


0B0704 




JfP 


01)078 


13 04067 


034637 




LuA 


3,11271 


14 04070 


162014 




ADC» 


3,0,SZ« 


16 










lb 04071 


B00652 




JMP 


0UP7C 


17 04072 


062677 




I0R5T 




1U 04073 


244613 




STA 


1,INP7H 


18 04074 


000660 




JMP 


0UR7T 


20 










21 


0»3730 


0U172" 


IM?2 




22 


003731 


0D175« 


IM75 




23 


003727 


Ou6?0» 


IN670 




24 0407b 


000007 


0U77I 


7 




2b 04076 


000377 


0D07F! 


377 




26 










27 04077 


00000P 


□DL7TI 







26 04100 


003403 


IT007TI 


T0D7T 




29 04101 


002000 


0017": 


JMP 


• 81 


30 04102 


0WKSO77 


TP771 


77 




31 0410.1 


000I00 


00T7PS 


"» 




32 











(BREAK POINT INSTRUCTION 
(AC0 • BREAK POINT INST. 



(THIS IS THE BREAK POINT ENTTRY 
(SAYE EVERY THINS 



(SKIP If THE COMMANO IS NOT 
CD" TO OtLETE BREAK POINT 

(AC3'121 

IIP IT HAS A "R« THEN START THE 

(USERS PROGRAM 



(I0NS1 



(AD0R6SS IN PA6E TO BE USED 
(BY THE BKEAK POINT 



10104 »KIIH 






01 


24134 


10SC15 


xurlo: ,T»TE 


l<215>«212> 


42 


04103 


040714 


LASt LOCATION 


IN MEMORY IS 


03 




152123 






04 




140240 






0b 




141717 






06 




152101 






07 




147711 






0b 




I 2« 1 1 « 






as 




047311 






It) 




04664# 






11 




046705 






12 




151317 






13 




120131 






14 




031711 






lb 




000240 






16 










17 










18 










19 










20 


04123 


00S213 


IUT1I .1XTE 


l«lb>«12»lLU 


21 




146311 






22 




142714 






23 




043501 






24 




142714 






2b 




144640 






26 




15211b 






27 




15130b 






2b 




050125 






29 




120324 






30 




054302 






31 




042240 






32 




053305 






33 




1417U 






34 




120305 






35 




000000 






36 


04143 


005213 


OUSEUI .TKTE 


l«15»«12»PR0I 


37 




151120 






3b 




04J717 






39 




040722 






40 




05151b 






41 




040640 






42 




142722 






43 




151240 






44 




047125 






4b 




144516 






46 




043516 






*/ 




14/640 






46 




152125 






49 




147640 






50 




1203K.6 






31 




142523 






52 




052721 






53 




047305 






34 




142703 






30 




005215 






56 




^00000 






37 


04170 


105015 


PMFi! ,TXT£ 


l<215»«212> t 


bb 




050240 






34 




051501 






60 




120123 







B1B5 AKITH 

01 «000ioi* 
02 

03 04175 ?"0t)000 LASTI 

04 004175 FINISH' LAST 
05 

06 194176 W4/503 

857 054520 

3b 044522 

39 B44107 

IB 024124 

11 it245«3 

12 B4.15u4 

13 020103 

14 034461 

15 «33067 

16 0421B W4O101 ALL RIGhTS RE5EHVE0/ 



.1XT /CDPVHISHT(i:)DGC,1976 



17 

IB 
li 
2K 
21 
22 
23 
24 
2S 
26 



B2»l 14 
044522 
044107 
051524 
051040 
1051505 
051105 
1042526 
B00104 



27 04222 151101 01RTI 
26 152311 
29 12011* 
3k' (151724 

31 1030324 

32 0P006IP 

33 0423b 000000 

34 04231 000200 

35 04232 002002 

36 04233 000000 

37 B4234 000000 
3e 04235 0000B0 

39 04236 000000 

40 04237 000000 
41 

42 003065 HtS5» 

43 003174 P[)f.CI« 

44 003156 PQCTA» 

45 003152 ZOCTA« 



47 



.END 



.TKTE 1AKITN TST00J 



000000 

000200 

2002 

000000 

000000 

000000 

000000 

000000 

MES7S 
PDE?C 

pucn 

ZOC?T 
.TITL AKITH 



••000fe,0 TOTAL EKRORS, 00000 PASS 1 ERHOKS 



BlfO ARiTH 
















Al 


0^1242 


35/«7 














A2 


1*01261 


36/17 














A3 


001301) 


38/97 














A4 


061317 


39/07 














45 


001352 


40/07 














A6 


f01377 


42/07 














A7 


B01424 


43/17 














46 


00144.) 


44/37 














AC0? 


002714 


78/23 


78/39 


80/08 


80/48 


80/60 


81/21 




AC1? 


002715 


76/24 


78/40 


80/09 


60/49 


81/02 


81/22 




AC2J 


002716 


78/25 


78/41 


80/10 


80/30 


81/04 


61/23 


81/40 


AC37 


1» (00165 


8/11 


81/06 












ADOTE 


001433 


42/13 


42/20 


43/19 










ANO0 


000653 


17/37 














AND1 


000704 


18/37 














AND3 


000/21 


20/37 


20/22 












AK1 


001472 


46/37 














ARl* 


002003 


58/87 














AMI 


002025 


59/07 














AK12 


002044 


60/87 














AH13 


002062 


62/07 














AK15 


01)2111 


63/07 














AK16 


002134 


64/07 














4K17 


002154 


66/37 














AK18 


002174 


67/37 














AK1S 


002214 


68/07 














AR2 


001516 


47/07 














AK20 


002234 


69/07 














AK3 


001543 


48/07 














AHA 


001566 


50/37 














AR5 


00161/ 


51/37 














AK6 


001645 


52/37 














AR7 


001672 


54/07 














AKB 


001727 


55/07 














AkS 


001763 


57/07 














AHEND 


002267 


71/23 














AKJSR 


002254 


71/37 














ci0?e 


003510 


94/37 


97/59 












C1B76 


002724 


80/16 


81/17 


61/36 










CAC70 


003114 


95/lt) 


85/17 


65/35 










CAL 


002447 


7/31 


74/05 












CAL2 


00012H 


7/50 


74/06 


74/11 










CALL 


000240 ML 7/10 


9/25 


9/30 


9/45 


21/12 


21/15 


22/11 






22/14 


24/12 


24/15 


25/12 


26/12 


27/12 


29/12 






30/12 


31/11 


32/11 


34/11 


34/14 


34/17 


34/20 






34/24 


34/26 


34/29 


34/32 


42/15 


46/14 


46/18 






47/11 


47/16 


47/20 


48/12 


48/17 


50/13 


30/16 






57/12 


71/29 


71/47 


71/50 


74/52 






CALKt 


00011/ 


7/49 
74/08 


72/32 
74/09 


72/42 
74/13 


72/56 


73/09 


73/22 


74/05 


CALTE 


00014* 


8/06 


/4/12 


74/14 










CAR? 


002717 


78/27 


7B/37 


80/11 


80/52 


80/38 


81/19 




CHA73 


003127 


85/25 


63/28 


85/32 










CHC7T 


003115 


84/22 


64/25 


85/17 


88/14 








CHE?» 


843135 


85/27 


85/35 












CMR7E 


003113 


85/14 


85/21 


65/36 










CHR7Z 


003244 


85/29 


85/34 


88/36 


91/02 


91/05 






CO 


000074 


7/30 


73/37 












CKL7F 


003142 


7/20 


86/10 













0107 ARITH 



CrC?2 002643 
CVC7E 882604 
DC07T 003206 
0EC7T 003207 
0ET7B 003247 
OIRT 004222 
01V? 002653 
DIV70 0(12694 
CUV70 002657 
EGGS 000105 
ENDE1 002311 
ENOTS 000232 MC 
ENT7R 002374 



78/22 78/42 

7/36 78/11 

88/83 88/23 
88/84 

87/53 8B/3M 

7/05 J05/27 
78/51 
78/52 

78/34 78/53 

7/14 7/39 9/22 

71/28 71/38 71/43 

7/82 

7/35 77/51! 



9/34 73/50 



EKROR 000242 "C 7/10 11/14 12/14 13/11 13/14 13/17 14/38 
16/914 17/23 18/13 28/25 21/19 22/18 24/19 
25/16 26/15 27/17 29/16 38/16 31/15 32/16 
34/36 35/13 38/15 38/15 39/27 48/21 42/22 
43/13 44/21 45/22 47/24 48/21 58/21 58/25 
58/2W 51/21 52/28 54/10 54/13 54/16 54/19 
54/22 54/23 34/26 54/31 54/34 54/37 55/11 
35/14 55/17 55/28 55/23 55/26 55/29 55/32 
33/33 57/17 58/17 59/15 68/14 62/22 63/19 
64/lb 66/16 67/16 65/16 69/16 71/11 71/16 

ERR? 002725 7/16 88/45 

ERR71 003004 81/23 81/32 

ERR72 002776 81/26 81/36 

ERR73 803811 88/55 bl/37 

E3WIT 800143 7/56 8/89 74/57 

ET1 0loi»bl6 11/21 21/23 31/21 42/28 33/83 63/25 

E110 000/45 28/34 

ETS1 883766 21/26 

ET12 001006 23/84 

£113 001027 24/26 

ET14 001046 25/23 

ET15 001863 26/23 

E116 001105 28/84 

ET17 001124 29/23 

ET2 800534 12/21 23/03 33/03 43/22 54/43 65/03 

ET20 001143 30/23 

ET21 001162 31/22 

ET22 001201 33/84 

ET23 001235 34/43 

ET24 001254 35/22 

E125 001273 37/04 

ET26 0K1J12 38/22 

ET27 001343 39/34 

ET3 0U0554 13/25 24/25 34/42 45/86 36/83 66/22 

ET30 08137V 41/04 

ET 31 001417 42/29 

£132 00143b 43/23 

E133 001463 45/07 

ET34 001511 46/29 

ET33 001336 47/31 

ET36 001361 49/84 

ET37 001612 50/36 

E14 000612 15/05 25/22 35/21 46/26 57/23 67/22 

E140 00lb4tf 51/28 

E141 001663 53/04 



'108 ARITH 



ET42 001722 

ET43 00175b 

E144 001776 

E145 002020 

ET46 00203/ 

ET47 002053 

ET5 008650 

ET50 002184 

E151 002127 

ET32 002147 

ET53 002167 

ET54 002207 

ET55 002227 

ET56 002247 

ET6 000677 

ET7 000714 

ETEST 000171 MC 

FINIS 004173 

FIRST 000300 

FST70 003402 

HEA7D 003020 

HELP 080163 

11271 00372b 

ItAL 008073 



ICAT 000076 
ICRL? 000062 



ICYCL 000102 



Itt.KS 000043 
IENTE 000101 



IERR 000047 



IINP7 0«0il*3 



54/44 

56/84 

57/24 

58/24 

59/22 

61/84 

16/37 26/72 37/83 47/38 56/23 68/22 

62/2V 

63/26 

65/84 

66/24 

67/23 

66/23 

78/85 

17/30 28/83 38/21 49/83 59/21 70/84 

18/89 19/84 29/22 39/33 58/38 61/83 

7/82 

8/87 105/84 

7/34 7/48 7/SB 9/47 18/84 74/54 

90/23 92/38 92/49 92/52 92/57 93/49 

80/57 82/01 

8/29 77/51 

98/12 188/38 183/13 

7/31 9/26 9/31 9/46 21/13 21/16 22/12 

22/15 24/13 24/16 25/13 28/13 27/13 29/13 

38/13 31/12 32/12 34/12 34/15 34/18 34/21 

34/24 34/27 34/30 34/33 42/16 46/15 46/19 

47/12 47/17 47/21 48/13 48/18 58/14 58/17 

57/13 71/38 71/48 71/51 74/53 

7/32 9/44 74/15 

7/20 78/28 98/24 99/24 99/35 99/45 188/13 
102/07 

7/36 11/17 12/17 13/28 14/33 18/33 17/26 

18/16 20/28 21/22 22/21 24/22 25/19 28/19 

27/20 29/19 38/19 31/16 32/18 34/39 35/18 

36/18 38/18 39/38 48/24 42/25 43/16 44/24 

46/23 47/27 48/24 58/32 51/24 52/23 54/48 

55/38 57/20 58/20 59/18 68/17 62/25 63/22 

64/19 66/19 67/19 68/19 69/19 71/21 

7/14 71/26 71/34 81/12 

7/35 11/08 12/88 13/88 14/06 16/68 17/08 

18/08 20/06 21/88 22/88 24/08 25/08 26/88 

27/08 29/08 30/08 31/08 32/08 34/08 35/08 

36/88 38/88 39/88 48/88 42/88 43/06 44/08 

48/08 47/08 48/88 58/08 31/06 52/08 54/08 

55/06 57/88 58/08 59/08 68/08 62/08 63/08 

64/08 66/08 67/08 68/08 69/86 71/08 

7/16 11/13 12/15 13/12 13/13 13/18 14/31 

lb/31 17/24 18/14 20/26 21/20 22/19 24/20 

25/17 26/17 27/18 29/17 38/17 31/16 32/16 

34/37 35/16 36/16 38/16 39/28 48/22 42/23 

43/14 44/22 46/23 47/25 48/22 50/22 50/26 

38/30 31/22 52/21 54/11 54/14 54/17 54/20 

54/23 54/26 54/29 54/32 54/35 54/38 55/12 

55/13 55/18 55/21 55/24 55/27 35/30 55/33 

35/3b 57/18 58/18 59/16 68/15 62/23 63/20 

64/17 66/17 67/17 68/17 69/17 71/12 71/19 

7/21 73/33 



niea ahitm 



ILIT 0X4123 
iMtS? 0*0064 
IMOVE 0B006W 



IN0? 


003522 


im? 


0W36K7 


i~i?B 


003513 


IM?? 


003730 


IM»J 


puaaia 


IM?5 


003731 


Il»2? 


003SJ4 


IN3? 


003716 


IN373 


033U 


IM? 


003653 


IN57 


003537 
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